Microsoft Excel

Herbers Excel/VBA-Archiv

Inhalt finden | Herbers Excel-Forum


Betrifft: Inhalt finden von: Karsten
Geschrieben am: 19.12.2009 13:09:22

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

  

Betrifft: AW: Inhalt finden von: Karsten
Geschrieben am: 19.12.2009 15:29:18

hat sich erledigt.

Gruß
Karsten


Beiträge aus den Excel-Beispielen zum Thema "Inhalt finden"