Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fehlerbehandlung bei WorkbooksOpen

Fehlerbehandlung bei WorkbooksOpen
Constantin
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Fehlerbehandlung bei WorkbooksOpen
24.02.2010 16:36:45
Josef
Hallo Constantin,

eine Möglichkeit.

strpfad = ActiveCell.Offset(0, 5).Value
strpfad2 = ActiveCell.Offset(0, 6).Value
strpassword = ActiveCell.Offset(0, 9).Value

If Dir(strpfad) <> "" Then
  Workbooks.Open Filename:=strpfad, Password:=strpassword
ElseIf Dir(strpfad2) <> "" Then
  Workbooks.Open Filename:=strpfad2, Password:=strpassword
End If

Gruß Sepp

Anzeige
AW: Fehlerbehandlung bei WorkbooksOpen
24.02.2010 17:17:04
Constantin
.... es läuft! - Sepp, vielen für Dank Deine Hilfe.
Grüße, Constantin

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige