Sortierungs-Makro über allen Tabellenblätter
Luke
Mein Thema wurde hier schon öfters behandelt, doch es scheint als sei ich nicht Fähig das hinzukriegen. Ich möchte gerne mit einem Makro mehrere Tabellenblätter ansprechen. Ziel: Beim Klick auf den Button sollten sich 13 Tabellenblätter (simultan) absteigend (nach Spalten E und F) sortieren.
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 13
With Worksheets(i)
Range("A2:F13").Select
Range("F13").Activate
Selection.Sort Key1:=Range("E2"), Order1:=xlDescending, Key2:=Range("F2") _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
End With
Next i
End Sub
Ich bedanke mich für jeden hinweis!
Gruss Lukas
Anzeige