zur Erklärung:
ich hab eine UserForm2 auf der ist eine ListBox1. Diese soll aus dem Arbeitsblatt "Eingabeformular" die Zeilen B11:Z lesen. Die Überschriften sollen auch angezeigt werden, die stehen in B10:Z10.
Das Problem was ich habe:
Egal wie sehr ich an dem Befehl herum schreibe, es wird mir gar nichts in der ListBox1 angezeigt.
Hat jemand einen Rat?
Das ist mein Code:
Private Sub UserForm2_Initialize()
Dim ws As Worksheet
Dim LastRow As Long
Set ws = ThisWorkbook.Sheets("Eingabeformular")
LastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
With Me.ListBox1
.Column = ws.Range("B10:Z10").Value
.List = ws.Range("B11:Z" & LastRow).Value
End With
End Sub
Gruß, Matze