Thema Datum  Von Nutzer Rating
Antwort
04.10.2019 15:47:01 Jonas
NotSolved
Blau Errorhandling (Workbooks.open fehlgeschlagen)
 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:
Gast52088		 Datum:
04.10.2019 16:38:46		 Views:
516		 Rating:
     
Antwort:
  Ja
Thema:
Errorhandling (Workbooks.open fehlgeschlagen)

Hallo,

probier mal:

Option Explicit

Private Sub ListBox_Jugendliche_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
Dim dateiname As String, pfad As String
Dim wbkBook As Workbook

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
    For Each wbkBook In Workbooks
       If wbkBook.Name = "Einzeldoku " & ListBox_Jugendliche.Value & ".xlsx" Then Exit For
    Next
    If wbkBook Is Nothing Then
      Call Workbooks.Open(Filename:=dateiname)  'Datei öffnen
    Else
      Set wbkBook = Nothing
    End If
End If
 
Unload Me
 
End Sub

...hm der IsNull-Fall wird bei einer gefüllten Box nie durchlaufen, müsste man auch nochmal überdenken...ah ja und immer Option Explicit verwenden und alle Variablen deklarieren...;-)

Gruß,

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
04.10.2019 15:47:01 Jonas
NotSolved
Blau Errorhandling (Workbooks.open fehlgeschlagen)
 04.10.2019 16:38:46 Gast52088
NotSolved
07.10.2019 13:13:55 Jonas
NotSolved
07.10.2019 22:19:55 Gast52088
NotSolved