ich habe es - auch dank Recherche in diesem Forums... - geschafft eine UF zu erstellen, in der ich einen großen Datensatz in ein mehrspaltiges Listenfeld lade.
Ich habe nun aber zwei Probleme:
Ich möchte gerne Einträge aus diesem Listenfeld (bspw. durch Doppelklick) in ein Zweites übernehmen. Ein Beispiel dazu habe ich hier im Forum gefunden, allerdings will es bei mir nicht klappen - bei mir wird immer nur die erste Spalte übernommen?
Das zweite Problem, mit dem ich nicht weiterkomme ist die Verknüpfung der Listbox mit einer Combobox: ich würde gerne die Einträge im ersten Listenfeld über eine Kombobox filtern. Die Verknüfung der Combobox mit der Ursprungstabelle zwecks Einlesen der "Filterwerte" habe ich geschafft, die mit der Listbox aber nicht.
Bin für jede Hilfe dankbar - anbei der unvollständige Code:
Dim arrDAta As Variant
Private Sub UserForm_Initialize()
' Listbox 1 füllen
Dim iLastrow As Integer
With Worksheets("Tabelle1")
iLastrow = .Cells(.Rows.Count, 1).End(xlUp).Row
arrDAta = .Range(.Cells(4, 1), .Cells(iLastrow, 21)).Value
End With
With ListBox1
.ColumnCount = 21
.ColumnWidths = "1,2cm;2,8cm;2,7cm;0cm;0cm;0cm;0cm;0cm;1cm;1cm;1cm;1cm;4,cm;1,5cm;0,9cm; _
_
0,9cm;1,3cm;1cm;1cm;1,2cm;5cm;"
.ColumnHeads = False
.List() = arrDAta
.ListIndex = .ListCount - 1
End With
'Combobox1+2 - Filter setzen aus Tabelle1
Dim obj1 As Object
Dim obj2 As Object
Dim lngIndx As Long
Set obj1 = CreateObject("SCRIPTING.DICTIONARY")
Set obj2 = CreateObject("SCRIPTING.DICTIONARY")
With Worksheets("Tabelle1")
For lngIndx = 4 To .Cells(.Rows.Count, 1).End(xlUp).Row
obj1(.Cells(lngIndx, 14).Value) = 0
obj2(.Cells(lngIndx, 16).Value) = 0
Next
End With
ComboBox1.List = obj1.keys
ComboBox2.List = obj2.keys
End Sub
Private Sub combobox1_Change()
' wie kann ich an Hand des Eintrags in der Combobox die mehrspaltige Listbox filtern?
End Sub
Private Sub ListBox1_Click()
' Listeneinträge listbox1 zu listbox2 übernehmen
' folgender Code übernimmt nur die erste Spalte?
Dim iCounter As Integer
ListBox2.AddItem
For iCounter = 0 To 2
If iCounter