Tabelle ohne öffnen sortieren
07.11.2003 10:15:01
Scotty
Habe eine Tabelle die sortiert werden soll. Verschiedene Zeilen, die nicht mitsortiert werden sollen, haben die Hintergrundfarbe weiß (2) und werden vor den sortieren ausgeblendet und danach wieder eingeblendet. Verwende folgendes Makro:
Sub Schaltfläche3_BeiKlick()
Dim rng As Range
For Each rng In Range("A1:C100").Cells
If rng.Interior.ColorIndex = 2 Then
Rows(rng.Row).Hidden = True
End If
Next rng
aRow = [A65536].End(xlUp).Row
Range("A1:B" & aRow).Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For Each rng In Range("A1:C100").Cells
If rng.Interior.ColorIndex = 2 Then
Rows(rng.Row).Hidden = False
End If
Next rng
End Sub
Meine Frage: Wenn ich dieses Makro aus einer Userform heraus starte und verschiedene Tab. sortieren will, kann man die Tab. auch sortieren, ohne sie zu öffnen bzw. im Hintergrund? Grund: Wenn ich sortiere geht das so dermaßen langsam, das es mich stört, da zuzusehen.
Danke
Scotty