Private
Sub
UserForm_Initialize()
Dim
lngLetzte
As
Long
Dim
lngAnz
As
Long
Dim
lngZeile
As
Long
Dim
intSpalte
As
Integer
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths =
"50;150"
With
Sheets(
"Hilfstabelle"
)
lngLetzte = .Cells(.Rows.Count, 1).
End
(xlUp).Row
ListBox1.Clear
For
lngZeile = 1
To
lngLetzte
ListBox1.AddItem .Cells(lngZeile, 1).Value
lngAnz = ListBox1.ListCount
For
intSpalte = 1
To
2
ListBox1.List(lngAnz - 1, intSpalte) = .Cells(lngZeile, intSpalte + 1).Value
Next
Next
End
With
End
Sub