|
Hallo, vielen Dank schon mal für Eure Hilfe!!!!!!!!!!
ich habe eine Excel-Datei mit 10 Worksheets, die alle mit Workbooks.Open "D:\ ..... beginnen
Leider klappt folgendes nicht:
Makro in DieseArbeitsmappe --> Workbook --> Open
Option Explicit
Dim Pfad As String
Private Sub Workbook_Open()
Pfad = "D:\ ...
End Sub
Makro in Tabelle1(TestX), Tabelle2(TestXY) ...
Sub TestX()
Workbooks.Open Pfad, Password ="...
...
....
End Sub
|