Sub Spieltag_1()
Range("a4:m36").Sort key1:=Range("e4"), order1:=xlAscending, _
key2:=Range("f4"), Order2:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
Range("f4:f7").Font.ColorIndex = 10
Range("f8:f10").Font.ColorIndex = 3
End Sub
Nur auf bestimmten Tabellenblättern ausgeführt wird?
z.B. Tabellenblatt 5, Tabellenblatt, 11 Tabellenblatt 17
Vielen Dank
Josi