AW: also zu und geschlossen ... (owT)
17.10.2017 08:55:41
Bernd
Hallo,
hier nochmal mein Code und der im Beitrag von Case...
Private Sub UserForm_Activate()
Sheets("DivRanking").Select
ListBox1.List = Range("A3:B12").Value
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "240,40"
ListBox2.List = Range("C3:D12").Value
ListBox2.ColumnCount = 2
ListBox2.ColumnWidths = "240,40"
ListBox3.List = Range("E3:F12").Value
ListBox3.ColumnCount = 2
ListBox3.ColumnWidths = "240,40"
ListBox4.List = Range("G3:H12").Value
ListBox4.ColumnCount = 2
ListBox4.ColumnWidths = "240,40"
End Sub
Von Case:
Private Sub UserForm_Activate()
Dim lngTMP As Long
With ListBox1
.ColumnCount = 2
.BoundColumn = 2
.ColumnWidths = "240;60"
End With
With ThisWorkbook.Worksheets("DivRanking")
For lngTMP = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row
ListBox1.AddItem .Cells(lngTMP + 2, 1).Text
ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(lngTMP + 2, 2).Text
Next lngTMP
End With
End Sub
Ich schaffe es nicht den Code von Case so umzubauen, so dass er alle 4 Listboxen aus den dementsprechenden Spalten der Tabelle ausliest.
Kann jemand helfen?
Danke im Voraus!
Gruß Bernd