Tabelle kopieren und sortieren
19.02.2015 12:03:24
Claude
ich habe eine Frage. Mein Makro soll mir zwei Spalten (C und D) aus Tabelle tbl_Profil kopieren und in eine andere Tabelle tbl_Zieltabelle die Werte sortiert einfügen.
Bisher kopiert es wie es soll, sortiert in der Zieltabelle erst Spalte D absteigend (bis hierhin perfekt), doch dann nach dem Einfügen der Spalte C aus tbl_Profil in tbl_Zieltabelle wird die Sortierung der Spalte D aufgehoben und Spalte C sortiert.
Kann mir bitte jemand über das Makro schauen, und sagen was ich falsch mache?
Es sollen eigentlich beide Spalten sortiert angezeigt werden...
Dank im Voraus!
Private Sub Auswertung_anzeigen_Click()
With tbl_Profil
.Range("D:D").Copy
End With
With tbl_Zieltabelle
.Range("D1").PasteSpecial Paste:=xlPasteValues
.UsedRange.Sort Key1:=.Range("D1"), Order1:=xlDescending, Header:=xlYes
End With
With tbl_Profil
.Range("C:C").Copy
End With
With tbl_Zieltabelle
.Range("C1").PasteSpecial Paste:=xlPasteValues
.UsedRange.Sort Key1:=.Range("C1"), Order1:=xlDescending, Header:=xlYes
End With
End Sub