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:
42
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 genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

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