ComboBox List Index
26.07.2005 14:22:41
Andreas.R
Ich wurde schon mehrmals hier geholfen und brauche nochmals dringend Eure Hilfe.
Über eine ComboBox (Kundennumer) und deren Auswahl fülle ich Textfelder und ein Listenfeld. in denen ich Änderungen vornehmen kann, und dann entsprechend wieder in die Tabelle eintragen kann.
Wie kann ich aber erreichen, das die ausgewählte Kundennummer in der ComboBox selectiert bleibt, und nicht immer wieder der erste Eintrag in der ComboBox ausgewählt wird.
Hier mal mein Makro:
Private Sub UserForm_Initialize()
'hier werden die Datensätze in die "ComboBox12 eingelesen
Dim z As Integer
Dim letzte As Integer
With UserForm1
.ListBox1.ColumnCount = 6 'Anzahl der Spalten im Listenfeld festlegen
.ListBox1.ColumnWidths = "90;60;80;80;60;60" 'Spaltenbreite der einzelnen Spalten
End With
ComboBox12.Clear 'suchen SteA-Nr.: (ComboBox Inhalt leeren)
'Das Kombinationsfeld "suchen SteA-Nummer" (ComboBox12) füllen
letzte = Sheets("AGH").Range("E65536").End(xlUp).Row
For z = 3 To letzte
UserForm1.ComboBox12.AddItem Sheets("AGH").Cells(z, 5).Value 'suchen SteA-Nummer
Next z
'Den ersten Eintrag einstellen
UserForm1.ComboBox12.ListIndex = 0
z = UserForm1.ComboBox12.ListIndex
End Sub