wie kann ich in einer listbox zahlen sortieren?
ich habe folgendes geschrieben:
UserForm3.ListBox1.Clear
Dim Dateiname As String
Dateiname = Dir("c:\JAAForm\Datenbank\Forms\*")
If Dateiname <> "" Then
For i = Len(Dateiname) To 1 Step -1
zeichen = Mid(Dateiname, i, 1)
If zeichen = "." Then
Dateiname = Left(Dateiname, i - 1)
Exit For
End If
Next
UserForm3.ListBox1.AddItem Dateiname
Do
Dateiname = Dir
For i = Len(Dateiname) To 1 Step -1
zeichen = Mid(Dateiname, i, 1)
If zeichen = "." Then
Dateiname = Left(Dateiname, i - 1)
Exit For
End If
Next
If Dateiname <> "" Then ListBox1.AddItem Dateiname Else Exit Do
Loop
danke sebastian