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ß,
|