Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Inhalt finden

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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Inhalt finden
19.12.2009 15:29:18
Karsten
hat sich erledigt.
Gruß
Karsten
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige