Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1424to1428
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro sortiert falsch

Makro sortiert falsch
15.05.2015 18:02:51
Jenny
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.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Tippfehler
15.05.2015 20:55:18
Michael
Hi Jenny,
in der Zeile key2 steht wiederum Order1, da muß Order2 rein.
Gruß,
Michael

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige