Hallo,
ich habe in einer UserForm eine Listbox, die ich folgendermaßen initialisiere:
Sub UserForm_Initialize()
Set EA = Worksheets("Ein AugN")
With ListBox1
.AddItem EA.Cells(6, 2) & Space(40 - Len(EA.Cells(6, 2))) & " = #01#"
.AddItem EA.Cells(7, 2) & Space(40 - Len(EA.Cells(7, 2))) & " = #02#"
.AddItem EA.Cells(8, 2) & Space(40 - Len(EA.Cells(8, 2))) & " = #03#"
.AddItem EA.Cells(9, 2) & Space(40 - Len(EA.Cells(9, 2))) & " = #04#"
.AddItem EA.Cells(10, 2) & Space(40 - Len(EA.Cells(10, 2))) & " = #05#"
.AddItem EA.Cells(11, 2) & Space(40 - Len(EA.Cells(11, 2))) & " = #06#"
........
Ich kann allerdings nur 25 Einträge der Form .Additem machen, ab 26. Eintrag gibt es einen Fehler.
Ist das normal? Kann man was dagegen tun oder gibt es hierzu Einstellungen? Ich brauche nämlich 30.
Einträge.
Danke für euren Tipp!
Danke und Gruß A.
P.S. Wie kann ich denn in dieser Plattform einen code entsprechend formatieren oder den Zeilenabstand reduzieren?