Hallo,
ich habe eine ComboBox als Formularsteuerelement (kein Active-X-Steuerelement) und möchte bei Betätigung immer die Datei-Namen eines fixen Ordnerinhaltes angezeigt bekommen. Anschließend möchte ich eine Auswahl treffen können. Folgender Code befüllt mir meine ComboBox schonmal. Das Problen ist, wenn neue Dateien in dem Ordner hinzukommen oder gelöscht werden werden diese in der ComboBox nicht akualisiert. Ich Suche eine Möglichkeit die ComboBox bei Betätigung initial zu löschen und dann mit den Dateiname des Ordnerinhaltes erneut zu befüllen, sodass stets die aktuellen Inhalte angezeigt werden.
Hier der besagte Code:
Option Explicit
Sub ordner()
Dim obj As dropdown
Dim StrPath As String
Dim strFile As String
Dim strTabName As String
Set obj = Worksheets("Mapping").Shapes("Dropdown 5").OLEFormat.Object
StrPath = ThisWorkbook.Path & "\PowerPoint_Vorlage\"
strFile = Dir(StrPath & "*.pptx")
With obj
Do Until strFile = ""
.AddItem Left(strFile, Len(strFile) - 5)
strFile = Dir
Loop
End With
End Sub
Ist das überhaupt möglich? Falls ja wie muss der Code angepasst werden
VG
Alex
|