Platzhalter in WorksheetFunction.CountIf
18.08.2020 11:30:21
Daniel
ich tue mich gerade etwas schwer.
Ausgangspunkt:
Tabelle 1 enthält in Spalte 1 eine Liste mit Namen
Tabelle 2 enthält in Spalte 1 eine Liste mit Namen und eine zweite Spalte für einen Hinweis
Das Makro prüft nun, ob der Name aus Tabelle 2 in Tabelle 1 vorkommt.
Ist der Name vorhanden wird in Tabelle 2 ein Eintrag gesetzt
Das Problem ist, dass ich hiermit nur nach exakter Schreibweise suchen kann.
Falls jetzt in der Tabelle 1 der Name "Hans" steht, in Tabelle 2 aber "Hans-Werner" bekomme ich natürlich keinen Treffer.
Nun dachte ich, das könnte man ganz leicht mit Sternchen lösen - aber ich bekomme das nicht hin;
egal wie ich versuche die Platzhalter zu positionieren, bekomme ich entweder Fehlermeldungen wie z.B. Erwartet Ausdruck o.ä.
Kann mir da jemand bitte helfen
Sub Test()
Dim LastRow As Integer
Dim Zle As Integer
Dim Suche As String
LastRow = Range("A1000").End(xlUp).Row
For Zle = 2 To LastRow
Suche = Sheets("Test").Range("A" & Zle).Value
If WorksheetFunction.CountIf(Sheets("Namensliste").Range("A:A"), Suche) > 0 Then
Range("B" & Zle).Value = "JA"
Else
Range("B" & Zle).Value = "NEIN"
End If
Next
End Sub