[Lila20]

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

[Murdoc]

Hallo,

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