Sheets("Tabelle1").Select
Range("A101:A300").Select
Selection.ClearContents
Sheets("Tabelle2").Select
Range("D7:IV7").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("A101").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=True _
, Transpose:=True
Range("A101:A400").Select
Selection.Sort Key1:=Range("A101"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Ziemlich Übel was? ;)
Hab versucht den code so zu verbessern:
Worksheets("Tabelle1").Range("A101:A300").ClearContents
WorkSheets("Tabelle2").Range("D7:IV7").Copy Destination:=Worksheets("Tabelle1").Range("101").PasteSpecial Paste:=xlAll, SkipBlanks:=True, Transpose:=True
Worksheets("Tabelle1").Range("A101:A400").Sort Key1:=Range("A101"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Warum funkt dieser viel kürzerer und übersichtlicher code nicht?