Makro sortiert falsch

Bild

Betrifft: Makro sortiert falsch
von: Jenny
Geschrieben am: 15.05.2015 18:02:51

Hallo,
ich bitte um eure Hilfe, ich bin ratlos was ich falsch mache,
ich habe nachfolgendes Makro, dass wie ihr seht u.a. nach Spalte E absteigend sortieren soll, allerdings die Tabelle wird nach E aufsteigend sortiert, auch wenn ich nach dem Ausführen die normale Sortierfunktion von Excel öffne, steht da E aufsteigend (ok, genau genommen steht da nach Alter absteigend) und da steht ja immer die letzte Sortierung drin.
Was mache ich mit dem Makro falsch?

Sub Makro1()
'
' Makro1 Makro
'
' Tastenkombination: Strg+i
'
     Dim zt1, von, bis As Long
     Dim Grafiken As Shape
     Application.ScreenUpdating = False
     With Sheets("Tabelle1")
         zt1 = .Cells(.Rows.Count, 1).End(xlUp).Row
         von = 1
         With Sheets("Tabelle2")
             bis = .Cells(.Rows.Count, 2).End(xlUp).Row
             'Inhalt Spalte B nach tabelle1 kopieren
             .Range(.Cells(von, 2), .Cells(bis, 2)).Copy Sheets("Tabelle1").Cells(zt1, 4)
         End With
         With Sheets("Tabelle3")
             'Inhalt aus Spalte E kopieren
             .Range(.Cells(von, 5), .Cells(bis, 5)).Copy
         End With
         'In Spalte D einfügen
         .Cells(zt1, 5).PasteSpecial Paste:=xlPasteValues
         Application.CutCopyMode = False
        If bis > 1 Then
          'Spalte A und B durch kopieren auffüllen
             .Range(.Cells(zt1, 1), .Cells(zt1, 3)).Copy _
              Destination:=.Range(.Cells(zt1 + 1, 1), .Cells(zt1 + bis - von, 1))
        End If
         Application.CutCopyMode = False
         'Daten nach Spalte D absteigend sortieren
        .Range(.Cells(1, 1), .Cells(zt1 + 1 + bis - von, 7)).Sort _
         key1:=.Range("C1"), Order1:=xlAscending, _
        key2:=.Range("E1"), Order1:=xlDescending, Header:=xlNo
     End With
     With Sheets("Tabelle2")
         'Daten in Spalten A bis C löschen
         .Range(.Cells(1, 1), .Cells(bis, 3)).Clear
     End With
     With Sheets("Tabelle3")
         'Daten in Spalten A bis D  löschen
      .Range(.Cells(1, 1), .Cells(bis, 4)).Clear
       For Each Grafiken In .Shapes
             Grafiken.Delete
       Next
     End With
     Application.ScreenUpdating = True
 End Sub


Danke und Gruß
Jenny
PS: Mir ist bewusst dass die Kommentare nicht stimmen.

Bild

Betrifft: Tippfehler
von: Michael
Geschrieben am: 15.05.2015 20:55:18
Hi Jenny,
in der Zeile key2 steht wiederum Order1, da muß Order2 rein.
Gruß,
Michael

Bild

Betrifft: AW: Tippfehler
von: Jenny
Geschrieben am: 15.05.2015 21:31:04
Hallo Michael,
danke für die Mühe, jetzt funktionierts. Manchmal sieht man den Wald vor lauter Bäumen nicht
LG
Jenny

Bild

Betrifft: kenn ich
von: Michael
Geschrieben am: 16.05.2015 15:25:54
Hi Jenny,
vielen Dank für die Rückmeldung.
Schöne Grüße,
Michael

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro sortiert falsch"