ComboBox1 nimmt den ausgewählten Wert nicht an
06.05.2005 02:03:43
Tony
wenn ich in meiner ComboBox einen Eintrag auswähle wird leider der ausgewählte Wert nicht da angezeigt, sondern bleibt immer noch leer. Was mache ich falsch? Mein verwendeter Code steht unten. Vielen Dank schon im Voraus.
Tony
Private Sub ComboBox1_DropButtonClick()
Dim sPfad As String
Dim Name1 As String
Dim Pfad As String
Dim Ort As String
Worksheets("Tabelle1").ComboBox1.Clear
Ort = "C:\Temp\"
sPfad = Ort & "*.csv"
If Dir(sPfad, vbDirectory) = "" Then
'Pfad existiert nicht!
Else
Name1 = Dir(sPfad) ' Ersten Eintrag abrufen.
Do While Name1 <> "" ' Schleife beginnen.
Worksheets("Tabelle1").ComboBox1.AddItem Name1 ' Eintrag nur anzeigen, wenn es sich
Name1 = Dir ' Nächsten Eintrag abrufen.
Loop
End If
End Sub