Nicht schön, aber sollte funktionieren
Sub KlammernZählen()
Dim column As Integer
Dim lastRow As Long
Dim Inhalt As String
Dim EckigeKlammerAuf As Long
Dim EckigeKlammerZu As Long
Dim RundeKlammerAuf As Long
Dim RundeKlammerZu As Long
column = 1 'Hier die zu durchsuchende Spalte eintragen. Für Spalte A = 1 eintragen, B=2, C=3 etc
lastRow = Cells(Rows.Count, column).End(xlUp).Row
EckigeKlammerAuf = 0
EckigeKlammerZu = 0
RundeKlammerAuf = 0
RundeKlammerZu = 0
For i = 1 To lastRow
Inhalt = Cells(i, column).Value
EckigeKlammerAuf = EckigeKlammerAuf + VBA.Len(Inhalt) - VBA.Len(Replace(Inhalt, "[", ""))
EckigeKlammerZu = EckigeKlammerZu + VBA.Len(Inhalt) - VBA.Len(Replace(Inhalt, "]", ""))
RundeKlammerAuf = RundeKlammerAuf + VBA.Len(Inhalt) - VBA.Len(Replace(Inhalt, "(", ""))
RundeKlammerZu = RundeKlammerZu + VBA.Len(Inhalt) - VBA.Len(Replace(Inhalt, ")", ""))
Next i
MsgBox "In Spalte " & column & " wurde gefunden: " & vbCrLf & _
"[ = " & EckigeKlammerAuf & vbCrLf & _
"] = " & EckigeKlammerZu & vbCrLf & _
"( = " & RundeKlammerAuf & vbCrLf & _
") = " & RundeKlammerZu & vbCrLf, vbInformation + vbOKOnly
End Sub
