Dateien mit makro öffnen
24.07.2006 09:03:51
achim
Ich habe ein Makro das mir verschiedene Dateien öffnen soll.
Leider öffnet es mal eine oder wenn es lust hat vielleicht auch zwei.
Wer kann mal schauen was ich was gemacht habe und gegebenfalls korrigieren.
Private Sub Workbook_Open()
Dim strPfad As String
strPfad = ThisWorkbook.Path & "\" & "01_DFStrab.xls"
strPfad = ThisWorkbook.Path & "\" & "01_Straßenverkehrsordnung außer Vorfahrt.xls"
strPfad = ThisWorkbook.Path & "\" & "02_Straßenverkehrsordnung außer Vorfahrt Zeichen.xls"
strPfad = ThisWorkbook.Path & "\" & "03_Allgemeine Dienstvorschrift_DFSTRAB.xls"
strPfad = ThisWorkbook.Path & "\" & "04_Signalordnung Straßenbahn.xls"
strPfad = ThisWorkbook.Path & "\" & "05_Fahrdynamische Grundlagen_Fahrzeugtechnik_Sonstige.xls"
strPfad = ThisWorkbook.Path & "\" & "06_Vorfahrtsfragen.xls"
Workbooks.Open strPfad
StartBild.Show
End Sub
gruß
achim h.