Problem mit replace

Hallo zusammen,
ich habe ein simples Marco geschrieben das mehrere Elemente replaced.
Es handelt sich dabei im Links mit jeweils 2 Bestandteilen.
1. Bestandteil: Pfad+Name der xls-Datei
2. Bestandteil: Sheet-Name
Beide Bestandteile ändern sich bei jedem Rundgang.
Dadurch tritt nun folgendes Problem auf:
Da ich ja ein der beiden zuerst ändern muss (hier: Dateiname), bricht das System dann ab und beschwert sich da es das Sheet (immernoch alter Name) in
der neuen Datei nicht findet. Würde excel mit der Überprüfung bis zum Ende des Macros warten, würde es das sheet (dann umbenannt) natürlich finden.
Frage:
Wie kann ich dieses Problem umgehen bzw. wie kann ich sagen, dass die Richtigkeit der Links erst dann überprüft wird, wenn das Macro KOMPLETT durchgelaufen ist...
Grüße

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

CODE:


Private Sub update_Click()
Cells.Replace What:= _
Range("D20"), Replacement:= _
Range("D4"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:= _
Range("D21"), Replacement:= _
Range("D5"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:= _
Range("D22"), Replacement:= _
Range("D6"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:= _
Range("D23"), Replacement:= _
Range("D7"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:= _
Range("D24"), Replacement:= _
Range("D8"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:= _
Range("D25"), Replacement:= _
Range("D9"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:= _
Range("D26"), Replacement:= _
Range("D10"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:= _
Range("D27"), Replacement:= _
Range("D11"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:= _
Range("D28"), Replacement:= _
Range("D12"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:= _
Range("D29"), Replacement:= _
Range("D13"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:= _
Range("D30"), Replacement:= _
Range("D14"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:= _
Range("D31"), Replacement:= _
Range("D15"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:= _
Range("D32"), Replacement:= _
Range("D16"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:= _
Range("C36"), Replacement:= _
Range("D36"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:= _
Range("C37"), Replacement:= _
Range("D37"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

Der Fehler passiert, sobald er die entsprechenden Felder erreicht, in denen
er die Adresse der ersten relevaten Datei ändert...in diesem Fall bei Replace D25 mit D5

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread