ListBox Einträge Sortierung

[Thomas78]

Hallo liebes Forum,

ich hätte da noch eine Frage an euch Experten.
Mit folgendem Code trage ich ja Daten in meine Listbox ein. Allerdings trägt er das älteste Datum an erster Stelle und das aktuellste Datum an letzter Stelle ein. Bei vielen Einträge in der Lsitbox muss ich also nach unten scrollen um den aktuellsten Eintrag zu sehen.
Kann ich die Reihenfolge irgendwie umdrehen?

PHP-Code:

Dim rZelle As Range
Dim sSuchbegriff As String
Dim strErsteAdr As String

sSuchbegriff = Auswertung.TextBox1

With ListBox2
    .ColumnCount = 5
    .Clear
End With

With ThisWorkbook.Worksheets("Rechnungsbuch")
   Set rZelle = .Columns(5).Find(What:=sSuchbegriff, Lookat:=xlWhole, LookIn:=xlValues)
    
   If Not rZelle Is Nothing Then
      'erste Fundstelle merken (verhindert Endlosschleife)
      strErsteAdr = rZelle.Address
     
      Do 'Schleife über alle Fundstellen
         'In Listbox eintragen
                
         ListBox2.ColumnWidths = "250 Pt;100 Pt;100 Pt;100 Pt;100 Pt"
         
         ListBox2.AddItem " "
                           
            ListBox2.List(ListBox2.ListCount - 1, 0) = .Range("B" & rZelle.Row).Value 'Art
            ListBox2.List(ListBox2.ListCount - 1, 1) = .Range("C" & rZelle.Row).Value 'Rechnungsdatum
            ListBox2.List(ListBox2.ListCount - 1, 2) = .Range("D" & rZelle.Row).Value 'Rechnungsnummer
            ListBox2.List(ListBox2.ListCount - 1, 3) = .Range("F" & rZelle.Row).Value 'Betrag
            ListBox2.List(ListBox2.ListCount - 1, 3) = Format(ListBox2.List(ListBox2.ListCount - 1, 3), "#,##0.00 €")
            ListBox2.List(ListBox2.ListCount - 1, 4) = .Range("G" & rZelle.Row).Value 'Bezahldatum
        
         'nächste Fundstelle aufsuchen

         Set rZelle = .Columns(5).FindNext(rZelle)
     
      Loop While rZelle.Address <> strErsteAdr

   End If
    
End With

Set rZelle = Nothing


End Sub 


vielen dank schonmal für eure Hilfe !

Schöne Grüße

Thomas

[Kuwer]

Hallo Thomas,

fülle die Liste doch gleich andersrum

         ListBox2.AddItem " ", 0

                           

            ListBox2.List(0, 0) = .Range("B" & rZelle.Row).Value 'Art

            ListBox2.List(0, 1) = .Range("C" & rZelle.Row).Value 'Rechnungsdatum

            ListBox2.List(0, 2) = .Range("D" & rZelle.Row).Value 'Rechnungsnummer

            ListBox2.List(0, 3) = .Range("F" & rZelle.Row).Value 'Betrag

            ListBox2.List(0, 3) = Format(ListBox2.List(0, 3), "#,##0.00 €")

            ListBox2.List(0, 4) = .Range("G" & rZelle.Row).Value 'Bezahldatum

        

         'nächste Fundstelle aufsuchen

Gruß Uwe

[snb]

Code:

Sub M_snb()
   sn=cells(1).currentregion

   listbox1.list=application.index(sn, Evaluate(UBound(sn) + 1 & "-row(1:" & UBound(sn) & ")"))
end sub

[Elex]

Hi

evtl. reicht es auch die Suchrichting umzukehren.

Code:

 Set rZelle = .Columns(5).Find(What:=sSuchbegriff, Lookat:=xlWhole, LookIn:=xlValues, SearchDirection:=xlPrevious)

Gruß Elex

[Flotter Feger]

Hallo zusammen,

einfach die Tabelle zu sortieren, bevor die ListBox gefüllt wird, davon hält keiner von euch etwas ?

[Thomas78]

Erstmal vielen Dank an euch alle.

Leider funktioniert keiner der Codes, es bringt keine Fehlermeldung aber es wird auch nicht anders sortiert.  EDIT :  Liegt es vielleicht daran das ich mir die Daten für die Listbox aus einer Pivottabelle hole?

@ Sabina : Die Tabelle ist richtig sortiert, das war mein erster Gedanke  :19:
@ Uwe : Bei deiner Variante zeigt es mir leider nur noch einen Eintrag an und die weiteren nicht mehr
@ snb : Den code serparat einfügen oder in den bestehenden? Habe auch ausprobiert Listbox 1 in Listbox 2 umzubenennen, da es ja um die geht, aber leider alles ohne Unterschied?
@ elex : Ich konnte keinen Unterschied feststellen

Habt Ihr noch ne Idee an was es liegen kann?

Vorweihnachtliche Grüße an alle !

Thomas

[Thomas78]

:22:

Sorry an alle, ich nehm alles zurück und behaupte das Gegenteil. Wahrscheinlich lags am Glühwein  :15: .

Ich hab immer die falsche Tabelle sortiert.........

Tut mir leid euch eure Zeit gestohlen zu haben.

Ich wünsche euch schöne Weihnachten und einen guten Rutsch !!!

Thomas