Hallo zusammen,
sobald in Spalte D das Wort "Lidl" vorkommt, soll in Spalte F "Einzelhandel" geschrieben werden. Pro Zeile kommt das Wort 1x vor.
Sub test()
Dim finden As Range
Set finden = Range("D2:D100").Find(What:="*Lidl*", MatchCase:=False)
Cells(finden.Row, 6).Value = "Einzelhandel"
End Sub
Problem ist, dass er bei mir nach dem 1. "Treffer" nicht weiter läuft.
Habe mich auch schon an For Next versucht, kommt aber nicht weiter. Danke!
|