Prüft A1 bis A10 auf die Zahl 12.
Gruß Boris
Gruss
Chris
~begin~
For Each cell In Range("A5:C8")
If cell = "Test" Then i = i + 1
Next
~end
gruss andre
Gruß Boris
Um innerhalb eines Makros in Excel VBA die Anzahl der Vorkommen eines bestimmten Worts, wie "Test", in einem bestimmten Bereich (z.B. A5:C8) zu zählen, kannst du folgende Schritte befolgen:
ALT + F11 drückst.Sub ZaehlenWennBeispiel()
Dim a As Integer
Dim i As Integer
Dim ii As Integer
a = 0
For i = 5 To 8
For ii = 1 To 3
If ActiveSheet.Cells(i, ii) Like "*Test*" Then a = a + 1
Next ii
Next i
MsgBox "Das Wort 'Test' kommt " & a & " mal vor."
End SubALT + F8 aus.Dieses Skript zählt, wie oft das Wort "Test" im Bereich A5:C8 vorkommt.
ZählenWenn funktioniert nicht
CountIf nicht direkt akzeptiert, du musst stattdessen Schleifen verwenden, um die Zählung durchzuführen.Variable nicht definiert
Dim, um sicherzustellen, dass deine Variablen wie a, i, und ii korrekt definiert sind.Falscher Zellbereich
A5:C8) korrekt ist und sich innerhalb des aktiven Arbeitsblatts befindet.Eine weitere Möglichkeit, die Anzahl der Vorkommen in einem bestimmten Bereich zu zählen, ist die Verwendung von For Each. Hier ist ein Beispiel:
Sub ZaehlenWennAlternative()
Dim cell As Range
Dim i As Integer
i = 0
For Each cell In Range("A5:C8")
If cell.Value = "Test" Then i = i + 1
Next cell
MsgBox "Das Wort 'Test' kommt " & i & " mal vor."
End SubDiese Methode ist oft einfacher und flexibler, wenn du durch einen Bereich iterieren möchtest.
Hier sind einige praktische Beispiele zur Anwendung der ZählenWenn-Funktion in VBA:
Range("A1:C100"), um eine größere Datenmenge zu analysieren.Like-Anweisung, um nach Mustern zu suchen, z.B. Like "*Test*" zählt alle Zellen, die "Test" enthalten.Option Explicit am Anfang deines Moduls, um sicherzustellen, dass alle Variablen deklariert werden, was Fehler reduziert.Do While, um deine Zählvorgänge zu optimieren.1. Funktioniert das ZählenWenn auch in Excel 2013?
Ja, die vorgestellten VBA-Methoden sind mit Excel 2013 und neueren Versionen kompatibel.
2. Kann ich mehrere Wörter zählen?
Ja, du kannst die Bedingungen in den Schleifen anpassen, um mehrere Wörter zu zählen. Zum Beispiel kannst du eine weitere If-Anweisung hinzufügen, um nach einem zweiten Wort zu suchen.
3. Ist es möglich, die Zählung in eine Excel-Zelle zu schreiben?
Ja, du kannst das Ergebnis der Zählung in eine Zelle schreiben, indem du ActiveSheet.Cells(1, 1).Value = a verwendest, um den Zählwert in Zelle A1 zu speichern.