mit diesem Code fülle ich in Abhängigkeit des Wertes von CB2 die CB1
Private Sub ComboBox2_Change()
If ComboBox2.Value = 2003 Then
ComboBox1.List = Range("2003!A4:H1000").Value
ComboBox1.ListIndex = iCounter - 1
End If
End Sub
Nun rolle ich mich durch den Inhalt von CB1 und wenn ich den Wert gefunden habe, wird er in die TB auf der UF geschrieben:
Private Sub ComboBox1_Change()
Dim iCounter As Integer, iRow As Integer
If ComboBox2.Value = 2003 Then
Dim sSelect As String
With ComboBox1
If .ListIndex >= 0 Then
sSelect = .List(.ListIndex, 0) & " " & .List(.ListIndex, 1)
iRow = .ListIndex
ComboBox1.Text = sSelect
End If
For iCounter = 1 To 8
Controls("TextBox" & iCounter).Text = .List(iRow, iCounter - 1)
Next iCounter
End With
End If
End Sub
Soweit funktioniert es auch bestens, ist aber mühsam einen Datensatz zu finden, der mit z.B. S beginnt, weil man weit nach unten rollen muss.Jetzt meine Frage:
Ich möchte alternativ zu obigem Prozess manuell die Serien-Nr (Spalte1 in der Tabelle) in die CB1 schreiben und dann soll der entsprechende Datensatz in die TB geschrieben werden.
Geht das?
Danke
Peter S.