08.11.2016, 12:15
Hallo,
kann ich wenn ich einen Makro aufnehme den Inhalte einer Tabelle anstelle eines bestimmten Wortes mit dem Inhalt einer bestimmten Zelle ersetzen lassen?
Also ich hab eine Tabelle in der ich alle Wörter "Auto" automatisch mit "Schiff"ersetzen lassen möchte, das funktioniert auch. Aber kann ich anstelle das ich "Schiff" angebe, es so bearbeiten das es "Auto" immer mit dem Inhalt einer bestimmten Zelle, z.B. dem Inhalt von Zelle "C5" ersetzt?
Hier mein ganz einfaches Makro.
Sub Makro1()
'
' Makro1 Makro
'
'
Range("H5:P19").Select
Range("P19").Activate
Selection.Replace What:="Auto", Replacement:="Schiff", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="Motorrad", Replacement:="Flugzeug", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Danke,
Mfg,
W.
kann ich wenn ich einen Makro aufnehme den Inhalte einer Tabelle anstelle eines bestimmten Wortes mit dem Inhalt einer bestimmten Zelle ersetzen lassen?
Also ich hab eine Tabelle in der ich alle Wörter "Auto" automatisch mit "Schiff"ersetzen lassen möchte, das funktioniert auch. Aber kann ich anstelle das ich "Schiff" angebe, es so bearbeiten das es "Auto" immer mit dem Inhalt einer bestimmten Zelle, z.B. dem Inhalt von Zelle "C5" ersetzt?
Hier mein ganz einfaches Makro.
Sub Makro1()
'
' Makro1 Makro
'
'
Range("H5:P19").Select
Range("P19").Activate
Selection.Replace What:="Auto", Replacement:="Schiff", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="Motorrad", Replacement:="Flugzeug", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Danke,
Mfg,
W.