Excel hängt sich bei ListBox-Aufruf auf
13.02.2023 15:30:04
KV
ich habe seit kurzer Zeit ein merkwürdiges Problem mit einer VBA-ListBox.
Sobald ich im Editor meinen Code testen will, reagiert Excel nicht mehr. Ich kann es nur noch
gewaltsam beenden. Mittels auskommentieren konnte ich das Problem eingrenzen, es will mir aber
nicht in den Kopf, warum Excel sich aufhängt. Ich fülle eine ListBox mit Werten, das Ganze mache ich
auch in anderen Dateien und Forms in genau der selben Art und Weise, da gibt es keine Probleme.
With ListBox2
.Clear
.ColumnCount = 10
.ColumnWidths = _
"3cm;3cm;1cm;2cm;3cm;9cm;4cm;2cm;5cm;2cm"
For lZeile = 2 To lLetzte Step 1
.AddItem " "
.List(lLiBox, 0) = WkSh.Range("A" & lZeile).Value
.List(lLiBox, 1) = WkSh.Range("S" & lZeile).Value
.List(lLiBox, 2) = WkSh.Range("C" & lZeile).Value
.List(lLiBox, 3) = WkSh.Range("L" & lZeile).Value
.List(lLiBox, 4) = WkSh.Range("E" & lZeile).Value
.List(lLiBox, 5) = WkSh.Range("D" & lZeile).Value
.List(lLiBox, 6) = WkSh.Range("F" & lZeile).Value
.List(lLiBox, 7) = WkSh.Range("R" & lZeile).Value
.List(lLiBox, 8) = WkSh.Range("T" & lZeile).Value
.List(lLiBox, 9) = WkSh.Range("U" & lZeile).Value
lLiBox = lLiBox + 1
Next lZeile
End With
lLetzte,Llibox und lZeile sind natürlich weiter vorne deklariert.
Wenn ich diesen Teil auskommentiere, läuft alles. Ich bin relativ ratlos und weiß nicht,
was ich noch probieren soll. Habe ihr eventuell eine Idee?
Vielen Dank für eure Mühe.