WinFuture-Forum.de: vba-durchschnittliche Textlänge - WinFuture-Forum.de

Zum Inhalt wechseln

Nachrichten zum Thema: Entwicklung
Seite 1 von 1

vba-durchschnittliche Textlänge


#1 Mitglied ist offline   Lila20 

  • Gruppe: Mitglieder
  • Beiträge: 3
  • Beigetreten: 17. April 13
  • Reputation: 0

geschrieben 22. April 2013 - 09:34

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

0

Anzeige



#2 Mitglied ist offline   Murdoc 

  • Gruppe: aktive Mitglieder
  • Beiträge: 322
  • Beigetreten: 03. Januar 05
  • Reputation: 0
  • Geschlecht:Männlich

geschrieben 17. Mai 2013 - 13:27

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

0

Thema verteilen:


Seite 1 von 1

1 Besucher lesen dieses Thema
Mitglieder: 0, Gäste: 1, unsichtbare Mitglieder: 0