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:
685
Rating: Antwort:
  Ja
Thema:
Sortierfunktion
1
2
3
4
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!
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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