Aktivierung eines Wertes in einer ComboBox
06.04.2006 07:23:00
Josef
Ich habe folgenden Code:
Private Sub ComboBox33_Enter()
Dim aRow, iRow As Long
Dim col As New Collection
ComboBox33.Clear
aRow = IIf(IsEmpty(Sheets("Tabelle1").Range("A65536")), Sheets("Tabelle1").Range("A65536").End(xlUp).Row, 65536)
On Error Resume Next
For iRow = 2 To aRow
col.Add Cells(iRow, 1), Cells(iRow, 5)
If Err = 0 Then
ComboBox33.AddItem Cells(iRow, 5)
Else
Err.Clear
End If
Next iRow
On Error GoTo 0
End Sub
Private Sub ComboBox34_Enter()
Dim aRow, iRow As Long
Dim col As New Collection
ComboBox34.Clear
aRow = IIf(IsEmpty(Sheets("Tabelle1").Range("A65536")), Sheets("Tabelle1").Range("A65536").End(xlUp).Row, 65536)
On Error Resume Next
For iRow = 2 To aRow
col.Add Cells(iRow, 7), Cells(iRow, 7)
If Err = 0 And _
Cells(iRow, 5) = ComboBox33.Value Then
ComboBox34.AddItem Cells(iRow, 7)
Else
Err.Clear
End If
Next iRow
On Error GoTo 0
End Sub
Punkt1: Die ComboBox33 wird mit den Daten aus der Tabelle1 Spalte F gefüllt.
Punkt2: die ComboBox34 wird in Abhängigkeit der ComboBox33 mit den Daten aus der Spalte G gefüllt.
Punkt3: Wenn ich jedoch über die ComboBox34_Change Daten in die entsprechenden TextBoxen einlesen lassen möchte, so werden die falschen Daten angezeigt.
Wenn ich z.B. den Wert in der ComboBox aus der Zeile 3270 (erster Wert in der ComboBox34) aktiviere so wird in den Textboxen der Wert der ersten Zeile angezeigt.
der Fehler liegt sicher bei ListIndex +2, 7
Wie würde hier bitte eine Vba Lösung aussehen, damit die richtigen Daten eingelesen werden?
Private Sub ComboBox34_Change()
TextBox3.Text = Cells(ComboBox34.ListIndex + 2, 7)
TextBox24.Text = Cells(ComboBox34.ListIndex + 2, 8)
End Sub
Danke
Josef