Makro zum Suchen und Wert schreiben

[Thorsten78]

Hallo,

also ich benötige ein Makro, dass in einer Tabelle nach einem Wort sucht und dann in die Spalte daneben ein X schreibt.

Wie bekomme ich meinen Code dazu, dass dies auf die ganze Tabelle genutzt wird und nicht nur auf eine bestimmte Zelle ?
Also die ganze Tabelle absuchen und überall nach dem betreffenden Begriff ein X schreiben. Der Suchbegriff soll fest einprogrammiert sein, kein Suchfeld !

Danke

Thorsten


Sub Suchen()
'
' Suchen Makro

Cells.Find(What:="Suchbegriff", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
Range("G4").Select
ActiveCell.FormulaR1C1 = "X"

End Sub

[RPP63]

Hallo!

und überall nach dem betreffenden Begriff ein X schreiben.

In die gleiche Zelle (aus "Suchbegriff" wird "Suchbegriffx") oder in die Zelle rechts daneben?

Gruß Ralf

[Thorsten78]

Hallo,

immer in die Zelle rechts daneben

Gruß

Thorsten

[RPP63]

Hi!
Geht wahrscheinlich eleganter, aber et löppt:

Sub Suchen()
Dim Fund1 As Range, Fund2 As Range
  Set Fund1 = Cells.Find(What:="Suchbegriff", After:=Cells(1), LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
    , SearchFormat:=False)
  Fund1.Offset(0, 1) = "x"
  Set Fund2 = Cells.FindNext(Fund1)
  Fund2.Offset(0, 1) = "x"
  Do While Not Fund1 Is Nothing And Fund2.Address <> Fund1.Address
    Set Fund2 = Cells.FindNext(Fund2)
    Fund2.Offset(0, 1) = "x"
  Loop
End Sub

Gruß Ralf

[Thorsten78]

DANKE  !!!!!! :15: :100: :15: