also mit folgenden Code habe ich jetzt verwirklicht das mir alle Exceldateien im Unterverzeichnis ohne Dateierweiterung in einer Combobox zur Auswahl angezeigt werden, leider habe ich jetzt ein Problem welches mir den Schönheitsschlaf geraubt hat und zwar würde ich gerne in meiner Combobox zwei Dateien (z.B. Verwaltung.xls und Test.xls) falls sie vorhanden sind nicht anzeigen.
Der Code:
Private Sub UserForm_Initialize()
Dim Verzeichnis() As String
Dim pPfad As String
Dim Dateiname As String
Dim I As Integer
Dim Anzahl As Integer
Dim StrTyp As String
Dim strDatei As String
pMonat = ThisWorkbook.Worksheets("Startseite").Range("C9")
pPfad = ThisWorkbook.Path & "\" & pMonat & "\"
Anzahl = 0
StrTyp = "*.xls"
Dateiname = Dir(pPfad & StrTyp)
I = 3
Do While Dateiname <> ""
Anzahl = Anzahl + 1
ReDim Preserve Verzeichnis(1 To Anzahl)
Verzeichnis(Anzahl) = Dateiname
Dateiname = Dir
Loop
Sort Verzeichnis, LBound(Verzeichnis), UBound(Verzeichnis)
For I = 1 To Anzahl Step 1
Abfragefenster.ComboBox1.AddItem Mid(Verzeichnis(I), 1, Len(Verzeichnis(I)) - 4)
Next I
Abfragefenster.ComboBox1.ListIndex = 0
Abfragefenster.ComboBox1.SetFocus
Abfragefenster.ComboBox1.Style = fmStyleDropDownList
End Sub
Private Sub Sort(SortArray, L, R)
Dim I, J, x, y
I = L
J = R
x = SortArray((L + R) / 2)
While (I <= J)
While (SortArray(I) < x And I < R)
I = I + 1
Wend
While (x < SortArray(J) And J > L)
J = J - 1
Wend
If (I <= J) Then
y = SortArray(I)
SortArray(I) = SortArray(J)
SortArray(J) = y
I = I + 1
J = J - 1
End If
Wend
If (L < J) Then Call Sort(SortArray, L, J)
If (I < R) Then Call Sort(SortArray, I, R)
End Sub
Kann mir von Euch jemand sagen wo ich da was ändern muß damit es klappt.
Schönen Tag noch ..
Petra