Slowmotion bei 'Selection.Replace' für Links
28.02.2007 12:22:00
exonix
verwende in einer zentralen Datei den VBA-Befehl 'Selection.Replace', um Formeln zu verändern, die sich aus anderen Dateien auf dem gleichen Serverlaufwerk Zahlen abziehen.
Konkret: Will ich Zahlen aus dem Januar sehen, dann ist innerhalb des Links ein Ordner '01' angesprochen, für den Februar wechsel ich entsprechend in das Unterverzeichnis '02'.
Und mit 'Selection.Replace' ersetze ich den Bestandteil der Excel-Formel, der das Unterverzeichnis anspricht. Das mache ich für 450 Zellen.
Das Ersetzen nimmt sehr viel Zeit in Anspruch (über 3 Minuten). Ein Ersetzen über das Menü 'Bearbeiten -- Ersetzen' dauer aber ebenso lange.
Frage: Gibt es (analog zum Befehl 'Application.Calculation = xlManual') einen Befehl, der Zeit einspart, indem die Aktualisierung der veränderten Zellen auf einen Schlag geschieht?
Verwendeter VBA-Code:
Selection.Replace What:=OldPath1, Replacement:=NewPath1, LookAt _
:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Vielen Dank und Gruß,
exonix