Thema: Inhalt finden | Herbers Excel-Forum

Hallo,
vor einiger Zeit hat mir jemand mit u.st. Code weitergeholfen.
Ich möchte ihn folgendermaßen abändern:
Der zu suchende Inhalt steht in IV1 und der Bereich bis C1 wird abgesucht. Wenn der Inhalt nicht vorhanden ist, sollte dieser immer in Richtung links neu eingefügt werden.
Da ich schon einiges ohne Erfolg probiert habe, bin auf eure Hilfe angewiesen.
Gruß
Karsten

Sub b()
If WorksheetFunction.CountIf(Range("D1:BH1"), Range("C1").Value) > 0 Then
Range("c1").Find(What:=Range("C1").Value, LookIn:=xlValues, LookAt:=xlPart).Select
Cells.Find(What:=ActiveCell, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Else
Range("BI1").End(xlToLeft).Offset(0, 1).Value = Range("C1").Value
Cells.Find(What:=ActiveCell, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End If
End Sub

hat sich erledigt.
Gruß
Karsten