|
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?
|