Laufzeitfehler 424 "Objekt erforderlich"
08.10.2022 09:51:48
Maurice
ich bekomme den Laufzeitfehler 424 "Objekt erforderlich" Fehler wenn ich zu 'ListBox befüllen With ListBoxKunden komme.
Die ListBox ist aber aber da, weiß jemand zuällig woran es liegen könnte?
Private Sub UserForm_Initialize()
'Zellenbereich einlesen
Dim rng As Range
Set rng = shKunden.Range("A1").CurrentRegion
Set rng = rng.Offset(1, 0).Resize(rngRows.Count - 1)
'ListBox befüllen
With ListBoxKunden
.RowSource = rng.Address(external:=True)
.ColumnCount = rng.Columns.Count ' Spaltenanzahl festlegen
.ColumnWidths = "50;110;110;110;110;110;110;110;110" ' Spaltenbreite festlegen
.ColumnHeads = True
.ListIndex = 0
End With
End Sub
Vielen dank schon mal
Anzeige