Combobox auf Spalte C abgreifen lassen
07.04.2007 20:02:04
Wolfgang
die untenstehenden Codes stammen aus einem Userform mit 5 Textboxes. Die Combobox dient als Vorauswahl des gesuchten Datensatzes. Es scheint so zu sein, dass die Combobox auf Spalte A zugreift. Was muß ich verändern, damit die Zeilen in Spalte C angzeigt werden und dabei nicht gefüllte Zeilen ausgespart bleiben (auch ab Spalte C)? - Danke allen schon jetzt für die Rückmeldung.
Gruß - Wolfgang
Private Sub UserForm_Initialize()
With Worksheets("Daten")
ComboBox1.List = .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count, 1)).Value
End With
End Sub
Private Sub ComboBox1_Change()
Dim intCounter As Integer
For intCounter = 1 To 5
Controls("TextBox" & intCounter).Text = Worksheets("Daten").Cells(ComboBox1.ListIndex + 2, _
intCounter)
Next intCounter
End Sub
Anzeige