ComboBox
07.03.2008 22:36:33
Jean-Pierre
in einer Userform möchte ich verschiedene Leistungen in aufeinanderfolgende TextBoxes auswählen können.
Hier der Code zum Anzeigen einer Leistung in einer TextBox.
Die Liste der Leistungen befindet sich in der Spalte 3 der Tabelle "Listen"
Diesen Code habe ich aus einem bestehenden Programm herauskopiert und angepasst.
'Leistungs-Liste1 füllen
Private Sub cboLeistung1_Enter()
Dim LZLei As Integer
Set wksListen = Sheets("Listen")
LZLei = wksListen.Cells(65536, 3).End(xlUp).Row
Dim col As New Collection
Dim iRow As Integer
iRow = 2
On Error Resume Next
Do Until IsEmpty(wksListen.Cells(iRow, 3))
col.Add wksListen.Cells(iRow, 3), wksListen.Cells(iRow, 3)
If Err = 0 Then
cboLeistung1.AddItem wksListen.Cells(iRow, 3)
Else
Err.Clear
End If
iRow = iRow + 1
Loop
On Error GoTo 0
cboLeistung1.ListIndex = 0
cboLeistung1 = ""
End Sub
Beim Anwählen (mit Tab) wird der Inhalt der TextBox gelöscht und die Liste der Leistungen öffnet sich.
Der Nachteil ist, dass wenn man sich nur mit der Tab-Taste über die TextBoxen bewegt verschwinden die Einträge nacheinander.
Wie muss ich den Code ändern, dass man von TextBox zu TextBox springen kann (Tab) onhe dass die Inhalte verschwinden. Die Liste soll sich auch nicht atomatisch öffnen, sondern nur dann erscheinen, wenn man auf den Listenpfeil clickt.
Herzlichen Dank im Voraus
Jean-Pierre