Thema Datum  Von Nutzer Rating
Antwort
Rot Errorhandling (Workbooks.open fehlgeschlagen)
 04.10.2019 15:47:01 Jonas
NotSolved
04.10.2019 16:38:46 Gast52088
NotSolved
07.10.2019 13:13:55 Jonas
NotSolved
07.10.2019 22:19:55 Gast52088
NotSolved

Ansicht des Beitrags:
Von:
Jonas		 Datum:
04.10.2019 15:47:01		 Views:
1212		 Rating:
     
Antwort:
  Ja
Thema:
Errorhandling (Workbooks.open fehlgeschlagen)

Hi zusammen,

in einer Userform habe ich eine Listbox, in der durch Doppelklick ein anderes Workbook geöffnet wird.

Hier der Code dazu:

 

Private Sub ListBox_Jugendliche_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim dateiname As String

pfad = ActiveWorkbook.Path
dateiname = pfad & "\Bewohner\" & ListBox_Jugendliche.Value & "\" & "Einzeldoku " & ListBox_Jugendliche.Value & ".xlsx"

If IsNull(ListBox_Jugendliche.Value) Then 'Abfrage ob Auswahl getroffen
    MsgBox "Kein Jugendlicher ausgewählt"
    Exit Sub
ElseIf Dir(dateiname) = "" Then 'Abfrage ob Datei existiert
    MsgBox "Datei nicht vorhanden"
Else: Workbooks.Open Filename:=dateiname 'Datei öffnen
End If

Unload Me

End Sub

 

Das funktioniert soweit ganz gut, wenn aber die entsprechende Datei bereits geöffnet ist, kommt eine Standard-Meldung von Excel, die abfragt ob die Datei neu geöffnet werden soll. Wenn man da dann auf abbrechen klickt, dann bekomme ich Laufzeitfehler 1004: Die Methode open für das Objekt Workbooks ist fehlgeschlagen.

Da ich noch nicht so versiert in VBA bin, weiß ich leider nicht wie das Errorhandling ordentlich gemacht wird. Hat jemand nen Vorschlag wie das in dem Fall zu lösen ist?

Viele Grüße und vielen Dank

Jonas

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Errorhandling (Workbooks.open fehlgeschlagen)
 04.10.2019 15:47:01 Jonas
NotSolved
04.10.2019 16:38:46 Gast52088
NotSolved
07.10.2019 13:13:55 Jonas
NotSolved
07.10.2019 22:19:55 Gast52088
NotSolved