gut es ist keine eigentliche Frage, aber ...
ich habe mir einen Makro "zusammengeschustert", der mit Sicherheit zu groß ist. Ich habe versucht mit Dim, mit Array einige Wege im Makro zu verkürzen - habe ich aber nicht hingekriegt ...
Wie könnte er verkürzt aussehen ?!
einige werden jetzt bei diesem langen Makro anfangen zu lachen ...
Sub Wiedervorlage_abwärts()
Application.Goto Reference:="ListeA"
ActiveSheet.Unprotect
Selection.Sort Key1:=Range("U11"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.Goto Reference:="ListeB"
ActiveSheet.Unprotect
Selection.Sort Key1:=Range("U11"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.Goto Reference:="ListeC"
ActiveSheet.Unprotect
Selection.Sort Key1:=Range("U11"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Monatsübersicht").Select
Range("D1:AU3").Select
End Sub
Im voraus besten Dank
Gruß Peter