Alle Dateinamen in Listbox sortieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Egon,
das Problem ist wohl eher das Excel zwar sortieren kann, aber dir die Reihenfolge nicht gefällt.
nach was/welcher Reihenfolge willst du übrigens sortieren? Datum , das in den ersten 10 Zeichen das Dateinamens steckt, dann nach der Stunde.
Wenn du die Dateinamen in eine Tabelle übertragst, dann muss du zum Sortieren den Text des Dateinamens in eine Sortierfähige Form bringen.
Das geht folgendermaßen recht flott.
1. Trage die Liste in eine Exceltabelle ein. z. Beispiel Bereich A1 bis A500
.....Dabei müssen rechts des Bereiches 2 leere Spalten vorhanden sein
2. Markiere den Bereich.
3. Menü- daten - Text in Spalten
4. im Dialogfenster als Typ "getrennt" und weiter
5. im Dialogfenster für Trennzeichen "Leerzeichen" und WEITER
6. im Dialogfenster unter Zielbereich die Nachbarspalte wählen z.B. B1
für die 1. Spalte das Datenformat auf Datum TMJ umstellen
für die 2. Spalte das Datenformat auf Text umstellen und ENDE
Jetzt hast du die drei Spalten nach Wunsch sortieren.
Gruss
Franz

Private Sub CommandButton1_Click() With Sheets("Tabelle1") .Cells(1, 1).CurrentRegion.Offset(1, 1).Resize(Cells(1, 1).CurrentRegion.Rows.Count - 1).FormulaR1C1 = "=DATEVALUE(LEFT(RC[-1],8))+VALUE(RIGHT(RC[-1],2))/24" .Cells(1, 1).CurrentRegion.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _ xlYes, OrderCustom:=4, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ListBox1.RowSource = "'Tabelle1'!" & Range(.Cells(2, 1), .Cells(65000, 1).End(xlUp)).Address .Columns(2).ClearContents End With End Sub

Hallo Egon,
folgender Code in dem Modul deines Userforms:

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub CommandButton1_Click()
    Dim vntArray As Variant
    With Tabelle1
        vntArray = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
    End With
    Call prcSort(1, UBound(vntArray), vntArray)
    ListBox1.List = vntArray
End Sub

Private Sub prcSort(lngLBorder As Long, lngUBorder As Long, vntArray As Variant)
    Dim lngIndex1 As Long, lngIndex2 As Long
    Dim strBuffer As String, dmtTemp As Date
    lngIndex1 = lngLBorder
    lngIndex2 = lngUBorder
    dmtTemp = CDate(Mid$(vntArray((lngLBorder + lngUBorder) \ 2, 1), 1, 8))
    Do
        Do While CDate(Mid$(vntArray(lngIndex1, 1), 1, 8)) < dmtTemp
            lngIndex1 = lngIndex1 + 1
        Loop
        Do While dmtTemp < CDate(Mid$(vntArray(lngIndex2, 1), 1, 8))
            lngIndex2 = lngIndex2 - 1
        Loop
        If lngIndex1 <= lngIndex2 Then
            strBuffer = vntArray(lngIndex1, 1)
            vntArray(lngIndex1, 1) = vntArray(lngIndex2, 1)
            vntArray(lngIndex2, 1) = strBuffer
            lngIndex1 = lngIndex1 + 1
            lngIndex2 = lngIndex2 - 1
        End If
    Loop Until lngIndex1 > lngIndex2
    If lngLBorder < lngIndex2 Then Call prcSort(lngLBorder, lngIndex2, vntArray)
    If lngIndex1 < lngUBorder Then Call prcSort(lngIndex1, lngUBorder, vntArray)
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Alle Dateinamen in Listbox sortieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Alle Dateinamen in Listbox sortieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread