Anzahl Wörter zählen in einer Filter-Auswahl

Liebe Mitglieder,
ich habe ein Excel VBA Problemchen :-(
Ich muss die Anzahl der Wörter in einer Filter-Auswahl zählen und dann in eine bestimmte Zelle in einem anderen Blatt eintragen. Erstmal wollte ich mir die Anzahl aber ausgeben lassen, um zu sehen, ob die Anzahl stimmt.
Ich schaffe es noch nicht das Zählen auf die ausgewählte Zellen zu beschränken.
Hier ist was ich bis jetzt habe:

Sub CountWords()
Dim cell As Range, rng As Range
ActiveSheet.Range("$A$14:$G$645").AutoFilter Field:=5, Criteria1:="1"
ActiveSheet.Range("$A$14:$G$645").AutoFilter Field:=6, Criteria1:="0"
Set rng = Range("$A$14:$G$645")
For Each cell In rng.SpecialCells(xlCellTypeVisible)
If Not cell.HasFormula Then
Content = cell.Value
Content = Trim(Content)
If Content = "" Then
cellWords = 0
Else
cellWords = 1
End If
Do While InStr(Content, " ") > 0
Content = Mid(Content, InStr(Content, " "))
Content = Trim(Content)
cellWords = cellWords + 1
TotalWords = TotalWords + cellWords
Loop
End If
Next cell
MsgBox TotalWords & " words found in the selected range."
End Sub

Ich hoffe, ihr könnt mir helfen.
Im Voraus schon mal vielen Dank!
Julia

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub CountWords() Dim cell As Range, rng As Range Dim lngWords As Long, strContent As String With ActiveSheet .Range("$A$14:$G$645").AutoFilter Field:=5, Criteria1:="1" .Range("$A$14:$G$645").AutoFilter Field:=6, Criteria1:="0" Set rng = Intersect(Selection, .Range("$A$14:$G$645").SpecialCells(xlCellTypeVisible)) For Each cell In rng If Not cell.HasFormula Then strContent = Trim(cell.Text) If Len(strContent) Then If InStr(1, strContent, " ") > 0 Then lngWords = lngWords + UBound(Split(strContent, " ")) + 1 Else lngWords = lngWords + 1 End If End If End If Next End With MsgBox lngWords & " words found in the selected range." End Sub

Sub CountWords() Dim cell As Range, rng As Range Dim lngWords As Long, strContent As String With ActiveSheet .Range("$A$14:$G$645").AutoFilter Field:=5, Criteria1:="1" .Range("$A$14:$G$645").AutoFilter Field:=6, Criteria1:="0" Set rng = Intersect(Range("A:A"), .Range("$A$14:$G$645").SpecialCells(xlCellTypeVisible)) For Each cell In rng If Not cell.HasFormula Then strContent = Trim(cell.Text) If Len(strContent) Then If InStr(1, strContent, " ") > 0 Then lngWords = lngWords + UBound(Split(strContent, " ")) + 1 Else lngWords = lngWords + 1 End If End If End If Next End With MsgBox lngWords & " words found in the selected range." End Sub

Sub CountWords() Dim cell As Range, rng As Range Dim lngWords As Long, strContent As String With ActiveSheet .Range("$A$14:$G$645").AutoFilter Field:=5, Criteria1:="1" .Range("$A$14:$G$645").AutoFilter Field:=6, Criteria1:="0" Set rng = Intersect(Range("A:A"), .Range("$A$14:$G$645").SpecialCells(xlCellTypeVisible)) For Each cell In rng If Not cell.HasFormula Then strContent = Trim(cell.Text) If Len(strContent) Then strContent = Replace(Replace(Replace(Replace(strContent, "{", " "), "}", " "), "'", " "), ":", " ") If InStr(1, strContent, " ") > 0 Then lngWords = lngWords + UBound(Split(strContent, " ")) + 1 Else lngWords = lngWords + 1 End If End If End If Next End With MsgBox lngWords & " words found in the selected range." End Sub

Beliebteste Forumthreads (12 Monate)

Anzahl Wörter zählen in einer Filter-Auswahl

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Anzahl Wörter zählen in einer Filter-Auswahl

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread