Inhalt finden
Karsten
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
Anzeige