Um die automatische Sortierung in den gewünschten Spalten festzulegen, während Sie die Arbeitsmappe öffnen, benötigen Sie dieses Makro (VBA).
Private Sub Worksheet_Open() Columns("D:D").Select Selection.Sort Key1:=Range("D6"), Order1:=xlDescending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Columns("J:J").Select Selection.Sort Key2:=Range("J6"), Order1:=xlDescending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub
Wie es funktioniert:
- Drücken Sie
Alt+F11
, um den VB-Editor zu öffnen. - Oben links in der
Project Explorer windows
SucheThisWorkbook
. Double click
es dannCopy & Paste
diesen Kodex.Save
&Close
die Arbeitsmappe.
Hinweis:
Jedes Mal, wenn Sie die Arbeitsmappe Excel öffnen, wird dieser Code ausgeführt, um die Daten für die angegebenen Spalten zu sortieren.