Hallo,

ich habe folgender Code welcher mir aktuelle Powerpoint Dateien in eine Combobox schreibt. Nun soll bei Auswahl einer eines Eintrages der auch in der Combobox dargestellt werden. 

D.h. die Aktualisierung funktioniert soweit (bei klick auf den Pfeil der Combobox) nur schaffe ich es nicht einen ausgewählten Eintrag zu loggen.

Hier der Code: 

Option Explicit

Private Sub ComboBox1_DropButtonClick()

Dim StrPath     As String
Dim strFile     As String
Dim strTabName  As String

   StrPath = ThisWorkbook.Path & "\PowerPoint_Vorlage\"
   strFile = Dir(StrPath & "*.pptx")

   With ComboBox1
      .Clear
      Do Until strFile = ""
         .AddItem Left(strFile, Len(strFile) - 5)
         strFile = Dir
      Loop
   End With
   

End Sub

Über jegliche Hilfe bin ich dankbar!

VG