Sortierung funzt ned
29.07.2004 11:41:03
andi
Ich will folgendes Makro umschreiben, und eine With Funktion einbauen, ohne den ganzen "Select"-quatsch.
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]
PASTE SPECIAL MUSS JETZT HIER REIN !!!!
.[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