Sortierung mit WITH, END WITH Funktion
29.07.2004 09:52:11
andi
Ich will folgendes Makro umschreiben, und eine With Funktion einbauen, ohne den ganzen "Select"-quatsch.
Sheets("GruppeA").Select
Range("B53:I65").Select
Selection.Copy
Range("B67").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B68:I79").Select
Selection.Sort Key1:=Range("I68"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("J68").Select
Ein Teil funtioniert schon mal, aber das SPECIAL-PASTE muss noch rein. wo und mit welchem befehl muss ich so ne Zeile reintun ?
SO WEIT HABE ICH ES SCHON:
Sub sorttab2()
Application.ScreenUpdating = False
With Sheets("GruppeA")
.[B53:I65].Copy .[B67:I79]
.[B68:i79].Sort Key1:=.[i68], Order1:=xlDescending, Header:=xlGuess
End With
Application.ScreenUpdating = True
End Sub
jetzt fehlt noch das Special-Paste, der nur die Werte einfügt (das selbe wie WERTE einfügen im einfügen menü)
Anzeige