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