habe mir ein Macro gebastelt, welches in einer Tabelle einen Teil eines Textes ersetzen soll.
(z.B. für A1: "ABCBLABLA_November2011" durch ABCBLABLA_Oktober2011")
Leider läuft das Macro viel zu langsam.(liegt am suchen ersetzen Code).
(von A1 bis K201 dauert das ersetzen fast 30 sekunden)
Kennt jemand einen code der suchen ersetzen schneller durchführt ?
Application.DisplayAlerts = False
Application.ScreenUpdating = False
'Tabellennamen neu festlegen
neuTabelle = Worksheets("macro").Range("A2")
'Tabellennamen neu festlegen
altTabelle = Worksheets("macro").Range("A1")
Sheets("Tabelle1").Select
Range("A1:K201").Select
Selection.Replace What:=altTabelle, Replacement:=neuTabelle, LookAt _
:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("macro").Select
Worksheets("macro").Range("A1") = neuTabelle
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Danke schonmal im voraus
Stefan