ich habe folgendes Problem:
Ich möchte ein Listenfeld mit Mehrfachmarkierung abfragen, ob etwas markiert wurde.
Der Code sieht so aus:
Dim LB As Object
Dim i As Long
Dim auswahl As Integer
Dim arrI() As Boolean
auswahl = 0
Set LB = Sheets("Eingabe").ListBoxes(17)
ReDim arrI(1 To LB.ListCount)
For i = 1 To LB.ListCount
If arrI(i) = True Then
auswahl = 1
End If
Next i
Jedoch kommt bei "If arrI(i) = True Then" im False raus, egal ob in dem Listenfeld etwas markiert wurde oder nicht.
Hat vielleicht jemand eine Idee, wo der Fehler liegen könnte?
Gruß
Ingo