Hallo zusammen,
ich habe folgendes Problem und zwar habe ich auf einem Tabellenblatt eine ComboBox welche mir alle PowerPoint-Datein eines Ordners wiedergeben soll. Da ab und zu eine PPP hinzukommen oder entfernt wird sollte die ComboBox am besten bei Betätigung aktulaisert werden, sodass stets die aktuellen PPP-Dateiname angezeigt werden. Man sollte dann entsprechend eine Powerpoint aus der ComboBox auswählen können, welche dann in der ComboBox steht.
Mein Code funktionier soweit auch, jedoch klappt das mit der Aktualisierung nicht.
Option Explicit
Private Sub ComboBox2_Click()
Dim StrPath As String
Dim strFile As String
Dim strTabName As String
StrPath = ThisWorkbook.Path & "\PowerPoint_Vorlage\"
strFile = Dir(StrPath & "*.pptx")
With ComboBox2
.Clear
Do Until strFile = ""
.AddItem Left(strFile, Len(strFile) - 5)
strFile = Dir
Loop
End With
End Sub
Vllt. kann mir ja jem. mit meinem Problem weiterhelfen
VG
M.
|