Listbox Spalten vertikal
11.12.2019 14:52:38
Max
ich benötige bitte eine kleine Änderung des Makros:
Es werden die Werte von Spalte O und P ausgelesen. Diese sollen ohne leere Zeilen in einer Userform auf zwei vertikalen Spalten angezeigt werden. Bei meinem Code werden diese untereinander aufgelistet.
Hier mein Code
Private Sub UserForm_Initialize()
Dim ABRV As Object
Dim Bereich_ABRV As Range
Dim Zelle_ABRV As Range
Set ABRV = CreateObject("Scripting.Dictionary")
With Worksheets("Eingaben")
Set Bereich_ABRV = .Range(.Range("O2"), .Range("P800").End(xlDown))
End With
For Each Zelle_ABRV In Bereich_ABRV
ABRV(Zelle_ABRV.Value) = 0
Next
With Listbox1
.ColumnCount = 2
.List = ABRV.keys
End With
End Sub
Danke
Max