Suchen und Ersetzen
18.05.2015 09:30:29
Ralph
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
Ralph