Exxel Tabelle sortieren bei Seitenaufruf

Computer: Software & Programmierung Visual Basic
#1

Ich möchte eine Tabelle mit verschiedenen Werten aus unterschiedlichen Blättern absteigend sortieren, sobald ich dieses Blatt aufrufe. Wie kann ich ein entsprechendes Makro duch einen Seitenwechsel ausführen?

#2

Ich möchte eine Tabelle mit verschiedenen Werten aus
unterschiedlichen Blättern absteigend sortieren, sobald ich
dieses Blatt aufrufe. Wie kann ich ein entsprechendes Makro
duch einen Seitenwechsel ausführen?

Hallo Grußlose®,

Code in „dieseArbeitsmappe“:

Option Explicit

Private Sub Workbook\_SheetActivate(ByVal Sh As Object)
With Sh
 .Range("A1:smiley:10").Sort Key1:=.Range("A2"), Order1:=xlDescending, Header:=xlYes, \_
 OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
End Sub

Gruß
Reinhard

#3

Vielen Dank für die Schnelle Antwort!
Und vielmals Entschuldigung für mangelnde Höflichkeit :frowning: