|
Das klappt irgendwie nicht.. Sorry, wenn ich mich etwas "tollpatschig" anstelle, aber ich bin noch ziemlicher Anfänger..
Ich arbeite mit 3 Dateien im Hintergrund, wenn aus irgendeinem Grund keine VPN Verbindung ins Büro hergestellt werden kann, sind diese Dateien nicht in S:\Kleingartenbewertungen zu finden, sondern in C:\Befundaufnahmen...
Ich hab schon versucht das untrige Sub in Workbook_Open_Büro() und Workbook_Open_Unterwegs() zu splitten und beim einen ein On Error GoTo Workbook_Open_Unterwegs reinzuschreiben, das klappt aber auch nicht..
Private Sub Workbook_Open()
Dim WBpersonl As Workbook
Dim WBpflanzen As Workbook
Set WBpersonl = GetObject("S:\Kleingartenbewertungen\PERSONL-7-4-14.xlsm")
Set WBpflanzen = GetObject("S:\Kleingartenbewertungen\Pflanzen2000.xlsx")
End Sub
|