Private Sub Workbook_Open()
Dim fso As Object
Dim WBpersonl As Workbook
Dim WBpflanzen As Workbook
Set fso = CreateObject("Scripting.filesystemobject")
If fso.fileexists("S:\Kleingartenbewertungen\PERSONL-7-4-14.xlsm") Then
Set WBpersonl = GetObject("S:\Kleingartenbewertungen\PERSONL-7-4-14.xlsm")
Set WBpflanzen = GetObject("S:\Kleingartenbewertungen\Pflanzen2000.xlsx")
ElseIf fso.fileexists("C:\_Befundaufnahmen\PERSONL-7-4-14.xlsm") Then
Set WBpersonl = GetObject("C:\_Befundaufnahmen\PERSONL-7-4-14.xlsm")
Set WBpflanzen = GetObject("C:\_Befundaufnahmen\Pflanzen2000.xlsx")
Else
MsgBox "Personl & Pflanzen 2000 nicht gefunden!"
End If
End Sub