Daten in der ComoBox aktualisieren
rieckmann
Ich habe auf einer UserForm eine ComboBox die mir alle Excel Dateien in einem Ordner anzeigt.
Wenn ich nun aus der UserForm heraus eine neue Datei in diesen Ordner abspeicher, erkennt die ComboBox diese Datei erst wenn ich die Mappe neu starte.
Kann man die ComboBox, oder einer Schaltfläche anweisen, dass sich die Einträge der ComoBox aktualisieren ?
Hier der Code:
Private Sub UserForm_Initialize()
Dim strPath As String
Dim strFile As String
Dim strTabName As String
' das Verzeichnis anpassen!
strPath = ThisWorkbook.Path & "\"
strFile = Dir(strPath & "Bahnhof *" & ".xls")
With ComboBox1
.Clear
Do Until strFile = ""
.AddItem Left(strFile, Len(strFile) - 4)
strFile = Dir
Loop
End With
End Sub
Wenn es hier nicht geht, wie sieht dann der Aktualisierungs-Code der ComoBox über einen CommandButton1 aus ?
Gruß
Fred