VBA - zählen, wenn Textteil in Text enthalten ist
30.08.2018 11:06:13
RK
Ich möchte gern alle Zellen zählen die einen bestimmten Text enthalten.
Problem ist, dass nur gezählt wird, wenn genau der Text aus D1 in Spalte A steht.
Wie muss ich mein Makro modifizieren, damit alle Einträge, in denen mein Textausschnitt enthalten ist, zählen?
Ich bitte um Hilfe und vielen Dank im Voraus!
Eine kleine Excel-Datei mit dem Makro als Beispiel:
https://www.herber.de/bbs/user/123656.zip
Sub count()
Dim r As Range
Dim Z As Integer
Set ZRB = ThisWorkbook.Sheets(1)
Set r = Range(ZRB.Cells(1, 1), ZRB.Cells(50, 1))
Z = Application.WorksheetFunction.CountA(r)
For i = 0 To Z
Modeli = ZRB.Cells(1 + i, 1)
If Modeli = ZRB.Range("D1") Then Anz = Anz + 1
Next
ZRB.Range("D2") = Anz
End Sub