Thema Datum  Von Nutzer Rating
Antwort
24.05.2020 15:16:35 Can
NotSolved
24.05.2020 18:25:16 Flotter Feger
NotSolved
24.05.2020 20:08:07 Gast83283
NotSolved
24.05.2020 21:33:06 Gast95919
NotSolved
Rot Sortierfunktion
 25.05.2020 21:40:34 Gast32525
NotSolved

Ansicht des Beitrags:
Von:
Gast32525		 Datum:
25.05.2020 21:40:34		 Views:
566		 Rating:
     
Antwort:
  Ja
Thema:
Sortierfunktion		 
Hallo Gast,

vielen Danke für die Hinweise.
mit deiem Code erzeugt excel Laufzeitfehler. Ich habe mein Code umgestellt soweit alles gut aber die Sortierfunktion macht mich kirre!


Sub Sort()
Dim LRow As Long

   'BenutzerDeffinierterListe
    Application.AddCustomList ListArray:=Array("H", "A", "B")

With Sheets("Basis")
    LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    .Names.Add Name:="Daten", RefersTo:=.Range("A1:H" & LRow)
    .Sort.SortFields.Clear
    .Range("Daten").Sort key1:=.Range("A1"), order1:=xlDescending, Header:=xlYes
    .Range("Daten").Sort key1:=.Range("H1"), order1:=xlDescending, ordercustom:=Application. _
CustomListCount + 1, Header:=xlYes
    .Range("Daten").Sort key1:=.Range("G1"), order1:=xlDescending, Header:=xlYes
End With

    'BenutzerDeffinierterListeL?schen
    Application.DeleteCustomList Application.CustomListCount
    
End Sub
</pre>

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
24.05.2020 15:16:35 Can
NotSolved
24.05.2020 18:25:16 Flotter Feger
NotSolved
24.05.2020 20:08:07 Gast83283
NotSolved
24.05.2020 21:33:06 Gast95919
NotSolved
Rot Sortierfunktion
 25.05.2020 21:40:34 Gast32525
NotSolved