|
Hallo,
tausche mal die Sub ListBoxFuellen gegen dieser aus:
Private Sub ListBoxFuellen(DieListbox As MSForms.ListBox, DerRange As Range)
With DieListbox
.ColumnCount = DerRange.Columns.Count
.ColumnWidths = "200; 0; 100; 0; 0; 0; 0; 0; 0; 100; 100; 200; 75;200;"
.List = DerRange.Value
.ColumnHeads = True
.RowSource = DerRange.Address '"Blatt1!A2:G2" ' Hier ist der Fehler
End With
End Sub
Bei diesem Code wurde lediglich in die Zeile .RowSource ausgetauscht:
.RowSource = DerRange.Address
Im Ergebnis wird ein Listenfeld mit den entsprechenden Inhalten und den Titeln in der 2. Zeile der Tabelle "Blatt1" angezeigt.
Zusätzlich musste der Aufruf in der Sub UserForm_Iitialize geändert werden:
Private Sub UserForm_Initialize()
Dim rng As Range
With Sheets(1)
Set rng = .Range(.Cells(3, 1), .Cells(.Rows.Count, 14).End(xlUp))
ListBoxFuellen ListBox1, rng
End With
End Sub
Es wurde hierbei angenommen, dass es sich beim Sheets(1) um das erste Blatt handelt.
LG, BigBen
|