Hallo zusammen,
ich möchte gerne eine ListBox mit variablen Werten befüllen.
Leider bekomme ich einen Fehler, wenn die ListBox aus weniger als zwei Werten besteht. das soll aber durchaus möglich sein.
Diesen Code verwende ich:
Dim letztezeileafi As Integer
Dim letztezeileafp As Integer
letztezeileafp = Sheets("Abgleichsprotokoll_fehlend_plk").Cells(1048576, 1).End(xlUp).Row
letztezeileafi = Sheets("Abgleichsprotokoll_fehlend_ibo").Cells(1048576, 1).End(xlUp).Row
Dim afp As String
Dim afi As String
afp = "Abgleichsprotokoll_fehlend_plk"
afi = "Abgleichsprotokoll_fehlend_ibo"
UserForm_Ibo_Abgleich2.ListBox3.List = Sheets(afi).Range("A2:A" & letztezeileafi).Value
UserForm_Ibo_Abgleich2.ListBox1.List = Sheets(afp).Range("A2:A" & letztezeileafp).Value
Was mache ich falsch? Danke euch!