Text einfügen, wenn nicht vorhanden
Karsten
in C1 steht durch ein Makrobefehl ein Text. Mit folgendem Befehl wird überprüft, ob in den dahinterkommenden Zellen (D1, E1 usw.) auch dieser Text vorkommt.
Cells.find(What:=ActiveCell, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Wenn ja, dann wird diese Zelle angesteuert.
Wenn nein, dann würde ich gern, dass die Zelle nach der letzten Zelle mit Inhalt in Zeile 1 (im Bereich B1-BH1) angesteuert wird und der Zellinhalt von C1 hineinkopiert wird.
Besten Dank für eure Hilfe.
Gruß
Karsten
Anzeige