Sortieren
Sascha
wie kann ich den Code so umstellen das ich den Code in jeder Tabelle ausführen kann ohne das ich das ganze sehe. Weil wenn ich den Code in einer andern Tabelle ausfüre springt er in den Bereich und umramt alles. Bitte um Hilfe !!!
mfg Sascha
Sub sort()
Range("R2:S25").Select
Selection.sort Key1:=Range("S2"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("U2:V13").Select
Selection.sort Key1:=Range("V2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
End Sub
Anzeige