Verwenden von Visual Basic for Applications zum Zählen der Vorkommen eines Zeichens in einer Auswahl in Excel
Zusammenfassung
In Microsoft Excel können Sie ein Makro verwenden, um die Vorkommen eines bestimmten Zeichens in einer Zelle oder einem Zellbereich zu zählen. Dieser Artikel enthält ein Beispielmakro zum Zählen der Vorkommen eines bestimmten Zeichens in einer Zelle oder einem Zellbereich.
Sie können auch eine Formel verwenden, um die Aufgabe auszuführen. Wenn Sie kein Makro verwenden möchten, klicken Sie auf die folgenden Artikelnummern, um die Artikel in der Microsoft Knowledge Base anzuzeigen:
187667 Formeln zum Zählen der Vorkommen von Text, Zeichen oder Wörtern in Excel für Mac
Weitere Informationen
Die Verwendung der hier aufgeführten Informationen, Makro- oder Programmcodes geschieht auf Ihre eigene Verantwortung. Microsoft stellt Ihnen diese Informationen sowie Makro- und Programmlistings ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionsfähigkeit sowie ohne Anspruch auf Support zur Verfügung. Die zur Verfügung gestellten Makro- und Programmierungsbeispiele sollen lediglich exemplarisch die Funktionsweise des Beispiels aufzeigen. Die Microsoft Support-Spezialisten können bei der Erläuterung der Funktionalität bestimmter Prozeduren helfen, jedoch werden sie diese Beispiele nicht in Bezug auf eine erweiterte Funktionalität verändern, noch werden sie Prozeduren entwickeln, die auf Ihre besonderen Bedürfnisse zugeschnitten sind.
Beispiel für eine Visual Basic-Prozedur
Die folgende Visual Basic-Prozedur fordert Sie zur Eingabe eines Zeichens (oder von Zeichen) auf, durchsucht dann die aktuell ausgewählte Zelle oder den Zellbereich und zeigt ein Meldungsfeld mit der Gesamtanzahl der Vorkommen dieses Zeichens oder dieser Zeichenfolge an. Dies funktioniert für alle alphanumerischen Zeichen.
Dim Count As Integer
Dim Target As String
Dim Cell As Object
Dim N As Integer
Sub Target_Count()
Count = 0
Target = InputBox("character(s) to find?")
If Target = "" Then GoTo Done
For Each Cell In Selection
N = InStr(1, cell.Value, target)
While N <> 0
Count = count + 1
N = InStr(n + 1, cell.Value, target)
Wend
Next Cell
MsgBox count & " Occurrences of " & target
Done:
End Sub