Thema Datum  Von Nutzer Rating
Antwort
Rot Anzahl Wörter zählen in einer Filter-Auswahl
 28.07.2015 17:21:34 Julia
NotSolved
28.07.2015 18:34:39 Gast98850
Solved
29.07.2015 14:09:57 Gast75232
NotSolved

Ansicht des Beitrags:
Von:
Julia		 Datum:
28.07.2015 17:21:34		 Views:
1734		 Rating:
     
Antwort:
  Ja
Thema:
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. Das ganze soll mehrmals wiederholt werden, für unterschiedliche Filter-Auswahlen. Erstmal wollte ich es mit einer Auswahl ausprobieren und mir die Anzahl ausgeben lassen, um zu sehen, ob sie stimmt.

Ich schaffe aber nicht das Zählen auf die ausgewählte Zellen zu beschränken.

Hier ist das 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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Anzahl Wörter zählen in einer Filter-Auswahl
 28.07.2015 17:21:34 Julia
NotSolved
28.07.2015 18:34:39 Gast98850
Solved
29.07.2015 14:09:57 Gast75232
NotSolved