Laufzeitfehler '1004'
Kann mir ja jeman einen Tip geben, wie ich per Makro sucher/ersetzen machen kann?
Kann mir ja jeman einen Tip geben, wie ich per Makro sucher/ersetzen machen kann?
poste mal Dein Makro.
Bye
Nike
hier das Makro, das ich aufgezeichnet habe.
------------------------------------------------------
Sheets("Tabelle1").Select
Range("B33:B52").Select
Selection.Copy
Sheets("Tabelle2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Replace What:="=", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
------------------------------------------------------
An der vorletzten Zeile (beim suchen/ersetzen) bleibt es hängen.
Sheets("Tabelle1").Range("B33:B52").Copy _
Sheets("Tabelle2").Range("B33:B52")
'Application.CutCopyMode = False
Sheets("Tabelle2").Range("B33:B52").Replace What:="=", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Bye
Nike