Danke für die schnelle Antwort, aber leider funktionoiert das nicht so ganz....ich bekomme eine Fehlermeldung und zwar
If CBool(InStr(1, .List(i), strWhat, vbTextCompare)) Then
If
CBool
(InStr(1, .List(i), strWhat, vbTextCompare))
Then
kennt er dort "List(i)" nicht. Was kann man da machen?
LIebe Grüße