Sortieren ohne Select
09.12.2005 14:11:32
Alex
konnte zu meinem Thema leider nicht das richtige im Archiv finden. Folgendens Problem:
Ich will eine Tabelle in einem anderen Blatt per Knopfdruck nach Spalten sortieren, mit Select ist das alles kein Problem, aber ohne Select ist der Sortierungsbezug dann plötzlich ungültig!? Da ich das Tabellenblatt ausblenden will, kann ich aber mit Select nicht arbeiten. Warum findet er den Bezugsbereich nicht?
Hier meine Funktion (einmal mit einmal ohne Select):
Sub LieferantSortMonat()
Sheets("DatenKopieLieferant").Range("A2:H197").Sort Key1:=Range("G2"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Sub LieferantSortMonat()
Sheets("DatenKopieLieferant").Select
Range("A2:H197").Select
Selection.Sort Key1:=Range("G2"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Gruß,
Alex