Listbox mit Multiselect Daten auslesen
30.01.2018 19:20:49
Sebi
ich hätte eine Frage:
Ich habe in meiner Userform eine Listbox mit hinterlegter "Single - Eigenschaft", also so dass ich nur eine Auswahl aus der Listbox anwählen kann. Bei jedem Klick auf die jeweils getroffene Auswahl, werden mir die entsprechenden Daten in die Textboxen ausgelesen.
Dazu verwende ich folgenden Code. Und das klappt auch wunderbar:
Meine Frage ist nun:
Wie muss ich diesen Code umschreiben wenn ich die "Multiselect-Funktion" verwenden möchte und nun die jeweils aktuell angeklickte Auswahl aus der Listbox in den Textboxen aktualisiert sehen möchte.
Kann mir jemand diesbezgl. helfen ?
Viele Grüße
Sebi
Private Sub ListBox1_Click()
Dim Zeile As Long
Dim Zelle As Range
With Me.ListBox1
If .ListIndex -1 Then
Zeile = .List(.ListIndex, .ColumnCount - 1)
Call prcAnzeigeFelderAusfuellen(Zeile, SpaEK:=.List(.ListIndex, .ColumnCount - 3))
End If
End With
End Sub