ListBox erstellen
27.04.2021 14:23:29
Sebastian
Ich würde gern die Daten aus einer Tabelle per Userform in einer ListBox darstellen. Nur leider find ich keinen Anfang für den Code. Könnt Ihr mir helfen?
Vielen Dank
Anbei die Datei --> https://www.herber.de/bbs/user/145819.xlsx
Anbei der bisherige "Fortschritt"
Private Sub UserForm_Initialize()
Dim ws As Excel.Worksheet
Dim rangeDaten As Excel.Range
Dim zeilenIndex As Integer
'Setzen der Eigenschaften der Listbox
With Me.Auflistung_Schleuse
.ColumnCount = 4
.ColumnWidths = "2cm"
.ColumnHeads = True
End With
'Spaltenüberschriften in Zeile 1
zeilenIndex = 1
With Schleuse
.Cells(zeilenIndex, 1) = "Eingangsart"
.Cells(zeilenIndex, 2) = "Reise"
.Cells(zeilenIndex, 3) = "Ware"
.Cells(zeilenIndex, 4) = "Hinweis"
End With
zeilenIndex = 2
With Schleuse
.Cells(zeilenIndex, 1) = Eingangsart
.Cells(zeilenIndex, 2) = Reise
.Cells(zeilenIndex, 3) = Ware
.Cells(zeilenIndex, 4) = Hinweis
End With
zeilenIndex = zeilenIndex + 1
End Sub
Anzeige