Outsider77
Erfahrenes Mitglied
Hallo zusammen!
ich möchte eine 4-spaltige ListBox sortieren und habe auch einen Code bereit.
Allerding kommt immer die Fehlermeldung:
Laufzeitfehler 94 - Unzulässige Verwendung von Null.
Aufgerufen wird mittels
Der Fehler kommt in folgender Zeile:
Hat vielleicht jemand eine Idee? Das wäre super!
Grüße Outi
ich möchte eine 4-spaltige ListBox sortieren und habe auch einen Code bereit.
Allerding kommt immer die Fehlermeldung:
Laufzeitfehler 94 - Unzulässige Verwendung von Null.
Code:
Sub listboxen_sortieren(lngUgrenze As Long, lngOgrenze As Long)
Dim lngIndex1 As Long, lngIndex2 As Long, strElement As String
Dim strZwischenspeicher As String, bytIndex As Byte
lngIndex1 = lngUgrenze
lngIndex2 = lngOgrenze
strZwischenspeicher = UserForm5.ListBox7.List(Fix((lngUgrenze + lngOgrenze) / 2), 0)
Do
Do While UserForm5.ListBox7.List(lngIndex1, 0) < strZwischenspeicher
lngIndex1 = lngIndex1 + 1
Loop
Do While strZwischenspeicher < UserForm5.ListBox7.List(lngIndex2, 0)
lngIndex2 = lngIndex2 - 1
Loop
If lngIndex1 <= lngIndex2 Then
For bytIndex = 0 To 5
strElement = UserForm5.ListBox7.List(lngIndex1, bytIndex)
UserForm5.ListBox7.List(lngIndex1, bytIndex) = UserForm5.ListBox7.List(lngIndex2, bytIndex)
UserForm5.ListBox7.List(lngIndex2, bytIndex) = strElement
Next
lngIndex1 = lngIndex1 + 1
lngIndex2 = lngIndex2 - 1
End If
Loop Until lngIndex1 > lngIndex2
If lngUgrenze < lngIndex2 Then Call listboxen_sortieren(lngUgrenze, lngIndex2)
If lngIndex1 < lngOgrenze Then Call listboxen_sortieren(lngIndex1, lngOgrenze)
End Sub
Aufgerufen wird mittels
Code:
Call listboxen_sortieren(0, UserForm5.ListBox7.ListCount - 1)
Der Fehler kommt in folgender Zeile:
Code:
strElement = UserForm5.ListBox7.List(lngIndex1, bytIndex)
Hat vielleicht jemand eine Idee? Das wäre super!
Grüße Outi