Fehlerbehandlung bei WorkbooksOpen
Constantin
ich möchte bei nachstehendem Code bei einer Fehlermeldung beim Öffnen der Datei (wegen ungültigem Pfad) die Variable strPfad durch strPfad2 ersetzen. Wie müsste ich dies formulieren, ohne an der Fehlermeldung hängenzubleiben?
Danke im Voraus für eure Hilfe.
Grüße, Constantin
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim strpassword As String
Dim strpfad As String
Dim strpfad2 As String
strpfad = ActiveCell.Offset(0, 5).Value
strpfad2 = ActiveCell.Offset(0, 6).Value
strpassword = ActiveCell.Offset(0, 9).Value
Workbooks.Open Filename:=strpfad, Password:=strpassword