Suchen und Ersetzen

Bild

Betrifft: Suchen und Ersetzen
von: Ralph
Geschrieben am: 18.05.2015 09:30:29

Hallo,
ich bin noch kein Profi in VBA und möchte in einem Makro ein automatatisches Suchen und Ersetzen umsetzen. Allerdings auf indirekte Weise. Das heisst: ein sich gerade in einer Zelle befindlicher Inhalt soll in einem Bereich durch einen sich in einer anderen Zelle befindenden Inhalt ersetzt werden. Die Inhalte der Zellen verändern sich aber bei jeder Ausführung. Ich hab das mit dem Makrorekorder versucht, die Zellinhalte dann in das Dialogfeld kopiert und ausgeführt. Im Code hab ich dann aber bei Replace gesehen, dass dort die festen Inhalte in " " eingesetzt wurden. Der Code ist unten aufgeführt. Wie bekomme ich hin, dass immer der Inhalt der Zelle E4 in einem Bereich gesucht und durch den Inhalt der Zelle J4 ersetzt wird.

Sub Makro3()
'
' Makro3 Makro
'
'
    ActiveWindow.SmallScroll Down:=-12
    Range("E4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("J4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Rows("8:537").Select
    Range("A537").Activate
    Selection.Replace What:="IVG IMMOBILIEN AG", Replacement:="BRAAS MONIER", _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
        False, ReplaceFormat:=False
    Range("H4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("M4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Rows("8:537").Select
    Selection.Replace What:="620570", Replacement:="BMSA01", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Sheets("DATEN").Select
    ActiveWindow.SmallScroll Down:=-15
    Sheets("POOL").Select
    ActiveWindow.SmallScroll Down:=-648
    Range("A6").Select
    Sheets("PFL").Select
    ActiveWindow.SmallScroll Down:=-21
End Sub
Danke im Voraus und Gruß aus Bremen
Ralph

Bild

Betrifft: AW: Suchen und Ersetzen
von: Uwe Küstner
Geschrieben am: 18.05.2015 10:25:10
Hallo Ralph,
vielleicht so?

Sub Makro_Ersetzen()
  Rows("8:537").Replace What:=Range("E4").Value, Replacement:=Range("J4").Value, _
      LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
      False, ReplaceFormat:=False
End Sub
Gruß Uwe

Bild

Betrifft: AW: Suchen und Ersetzen
von: Ralph
Geschrieben am: 19.05.2015 17:56:06
Vielen Dank. Wunderbar

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Suchen und Ersetzen"