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
--> Problem: Es wird nur das Tabellenblatt angesprochen, auf dem sich der Button befindet. (Darauf funktioniert das makro aber :))Ich bedanke mich für jeden hinweis!
Gruss Lukas