Makro Mappe öffnen,Alternativpfad
06.07.2006 11:04:51
Heribert
ich versuche mich an folgendem Problem:
Wenn meine zu öffnende Mappe nicht im 1. Verzeichnispfad zu finden ist
dann soll ein Alternativverzeichnis verwendet werden.
Habe verschiedene Anweisungen probiert, es klappt nicht.
Wie muss das Makro bitte aussehen?
For Each wb In Workbooks
If Not wb.name = "Testmappe.xls" Then
If Not Workbooks.Open("D:\Eigene\Testordner\Testmappe.xls") Then
Workbooks.Open ("D:\Eigene\Testmappe.xls")
End If
End If
Next
Besten Dank
Heribert