Hallo:)
Also ich soll ein makro schreiben, dass die anzahl der wörter in jeder zeile der spalte zählt und diese in die benachbarte spalte einträgt. Danach wird die durchnittliche Textlänge ermittelt und über eine Message-Box ausgegeben. Ich bin absoluter vba-Anfänger und bin bisher soweit gekommen:
2 Sub ProzedurAufgabe2 ()
3
4 Dim spalte As Integer
5 spalte = 1
6 For zeile = 1 To Cells ( Rows . Count , spalte ) . End ( xlUp ) . Row
.... das wars auch schon:D für tipps zum weiteren vorgehen bin ich dankbar
Lg lila
Seite 1 von 1
vba-durchschnittliche Textlänge
Anzeige
#2
geschrieben 17. Mai 2013 - 13:27
Hallo,
anbei kurz zusammengetippt:
anbei kurz zusammengetippt:
Sub Textlaenge() Const SpalteMitText = 1 Const SpalteMitTextLaenge = SpalteMitText + 1 Const StarteBeiZeile = 1 Dim iLetzteZeile As Integer Dim rngZelle As Range Dim sngDurschnitt As Single With ThisWorkbook.ActiveSheet 'letzte Zeile ermitteln iLetzteZeile = .Cells(.Rows.Count, SpalteMitText).End(xlUp).Row 'Zeilen durchlaufen For Each rngZelle In .Range(.Cells(StarteBeiZeile, SpalteMitText), .Cells(iLetzteZeile, SpalteMitText)) .Cells(rngZelle.Row, SpalteMitTextLaenge).Value = Len(rngZelle.Text) Next rngZelle 'Durchschnitt über integrierte Funktin ermitteln sngDurschnitt = Application.WorksheetFunction.Average(.Range(.Cells(StarteBeiZeile, SpalteMitTextLaenge), .Cells(iLetzteZeile, SpalteMitTextLaenge))) 'in String konvertieren und ausgeben MsgBox CStr(sngDurschnitt) End With End Sub
Dieser Beitrag wurde von Murdoc bearbeitet: 17. Mai 2013 - 13:27
Thema verteilen:
Seite 1 von 1