|
Hallo King,
danke nochmal für deinen Gedankenanstoß! Ich habe versucht in deinen Code ein Else mit dem anderen Pfad einzubauen, das hat aber nicht funktioniert..
Auch, wenn es vermutlich etwas abenteuerlich aussieht, funktioniert das, was ich danach fabriziert hab (hab die zwei verschiedenen Pfade in ein Tabellenblatt gepackt, in dem ich die Spalten A und B schon für einen anderen Code verwende).
Zumindest funktioinert er zur Hälfte..
Die personl.xlsm öffnet sich, die pflanzen.xlsx nicht.. Kann das am .xlsx liegen oder hab ich was falsch gemacht? Hast du einen Anhaltspunkt für mich?
Private Sub Workbook_Open()
Dim fso1 As Object
Dim fso2 As Object
Dim WBpersonl As Workbook
Dim WBpflanzen As Workbook
Set fso1 = CreateObject("scripting.filesystemobject")
Set fso2 = CreateObject("scripting.filesystemobject")
Set wsVereine = Sheets("Vereine")
If fso1.fileexists("S:\Kleingartenbewertungen\PERSONL-7-4-14.xlsm") Then
Personl_Pfad = wsVereine.Cells(2, 4).Value
Set WBpersonl = Workbooks.Open(FileName:=Personl_Pfad)
Else
Personl_Pfad = wsVereine.Cells(2, 5).Value
Set WBpersonl = Workbooks.Open(FileName:=Personl_Pfad)
If fso2.fileexists("S:\Kleingartenbewertungen\Pflanzen2000.xlsx") Then
Pflanzen_Pfad = wsVereine.Cells(3, 4).Value
Set WBpflanzen = Workbooks.Open(FileName:=Pflanzen_Pfad)
Else
Pflanzen_Pfad = wsVereine.Cells(3, 5).Value
Set WBpflanzen = Workbooks.Open(FileName:=Pflanzen_Pfad)
End If
End If
End Sub
|