was mache ich falsch? Ich habe folgendes Makro im Modul1
Sub Sortiere()
Dim wks As Worksheet
For Each wks In Worksheets
Range("B7:D31").Select
Selection.Sort Key1:=Range("D7"), Order1:=xlAscending, Key2:=Range("C7") _
, Order2:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:=False _
, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
Next wks
End Sub
Die Datei hat mehrere Tabellenblätter, die alle identisch sind. Ich möchte nun per Makro alle Blätter aufeinmal in dem angegebenen Bereich sortieren. Das Makro läuft auch ohne Fehler, aber es wird nur das erste Tabellenblatt sortiert. Die anderen bleiben unsortiert.
Viele Grüße
Michael