Hallo ihr Lieben,
ich hoffe mir kann jemand weiterhelfen.
Folgendes:
Ich möchte den ausgewählten Wert aus einer ComboBox mit dem jeweiligen Listenfeld verknüpfen. Aus dem Wert der ComboBox soll dann aus der ausgewählten Zeile des Listenfeldes die richtige Spalte erkannt werden und dieser Wert dann in ein Textfeld eingeschrieben werden. Nur funktioniert mein unten stehender Code nicht und komme daher nicht weiter. :(
Über Hilfe würde ich mich sehr freuen.
Private Sub ListBox1_Change() 'schreibt den gewünschten Wert aus der ausgewählten Zeile in die Textbox
Dim lngZeile As Long
Dim lngZeileMax As Long
With Me.ListBox1
lngZeileMax = .ListCount - 1
For lngZeile = 0 To lngZeileMax
If .Selected(lngZeile) = True Then
'Me.TextBox2.Value = .List(lngZeile, Me.ComboBox1.Value) 'gibt den Wert der angeklickten Zeile mit den jeweiligen Spalten aus
Me.TextBox5.Value = .List(lngZeile, 6)
End If
Next lngZeile
End With
End Sub
Private Sub ComboBox1_Change()
Dim zeile As Long
Dim spalte As Long
Dim letzte_zeile As Long
spalte = Me.ComboBox1.ListIndex + 12
letzte_zeile = WorksheetFunction.CountA(Worksheets(2).Columns(spalte))
For zeile = 9 To letzte_zeile
Me.ListBox1.Value = TextBox2(zeile, spalte)
Next zeile
End Sub |