Hallo,

ich bin jetzt schon 2 Tage mit meiner Combobox am kämpfen.

Auch ein zusammstückeln von Code funktioniert leider nicht.

Ich möchte gerne:

Auf meiner Userform eine Combobox einrichten, die mir in relativem Pfad einen Ordner zurückspringt, dann in den Ordner Projekte geht und dort alle Namen der Unterornder ausliest.

Nun soll per Change dieser ausgewählte Ordner im Explorer geöffnet werden.

Hier mein versuchter Code:

'Combobox2 mit Unterordner laden
  Dim fso, o1, s, sDir
  sDir = ThisWorkbook.Path & "\..\Projekte\"
  Set fso = CreateObject("Scripting.FileSystemObject")
  If Not fso.FolderExists(sDir) Then Exit Sub
  Me.Caption = "Start: " & sDir
  s = 0
  With Me.ComboBox2
  .AddItem "Projektordner wählen..."
    .ColumnCount = 1
    For Each o1 In fso.GetFolder(sDir).SubFolders
      .AddItem o1.Name
      .List(s, 1) = fso.GetFolder(o1)
      s = s + 1
    Next
    .ListIndex = 0
  End With
  Set fso = Nothing

Und das Change Ereignis:

Private Sub ComboBox2_Click()
Dim strpath As String
Dim pfad As String


strpath = ThisWorkbook.Path & "\.." '& ComboBox2.Text
pfad = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1) & "\Projekte\" & ComboBox2.Text & "\"

If ComboBox2.Text <> "Projektordner wählen..." Then
Shell "Explorer.exe""" & pfad & """, vbNormalFocus"
End If

End Sub

Aber ich bekomme immer eine Fehlermedung.

Nach dem Change soll auch die Combobox wieder auf das Item "Projektordner auswählen..." zurückspringen.

Kann mir da einer helfen, wo der Fehler liegt?