die Angabe des Pfades bei Workbooks.open kann von Rechner zu Rechner unterschiedlich sein, allerdings gibt es nur zwei mögliche Pfade. Nun habe ich mir folgendes überlegt:
Private Sub CommandButton4_Click()
Dim Quelldatei As String
Application.ScreenUpdating = False
Quelldatei = "Adressen2.xls"
Workbooks.Open Filename:="W:\server2000\w4all\" & Quelldatei
On Error GoTo ERRORHANDLER
Adressehinzufuegen.Show
Application.ScreenUpdating = True
Tabelle3.Cells(5, 17) = Date
Tabelle3.Cells(59, 14) = Date
ERRORHANDLER:
If Err.Number = 1004 Then
Workbooks.Open Filename:="\\Tomato\Work4All\server2000\w4all\" & Quelldatei
Adressehinzufuegen.Show
Application.ScreenUpdating = True
Tabelle3.Cells(5, 17) = Date
Tabelle3.Cells(59, 14) = Date
End If
Err.Clear
End Sub
Funktioniert aber so nicht, es kommt nur die Fehlermeldung und beim debuggen springt es immer wieder an die Stelle "Workbooks.Open Filename:="W:\server2000\w4all\" & Quelldatei" zurück. Ich wollte, dass er da beim ERRORHANDLER weitermacht.
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter