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