Re: Makro autom. ausführen bei Änderung einer Zelle
10.04.2003 16:56:00
Thomas
Hi nochmal!Ich hab hier mal das komplette Makro gepostet, denn mit der 2. Antwort konnte ich leider auch nicht soviel anfangen. Das Makro sortiert den Bereich B9-H31 und sollte automatishc gestartet werden wenn sich in B9-B31 ein Wert ändert.
Ich muss jetzt leider weg, freue mich aber morgen früh auf eine Antwort ;-))
Vielen Dank,
Thomas
Sub Tabellen_sortieren()
'
' Tabellen_sortieren Makro
' Makro am 18.08.2001 von Thomas Werner aufgezeichnet
'
'
Range("B9:H31").Select
Selection.Sort Key1:=Range("D9"), Order1:=xlDescending, Key2:=Range("G9") _
, Order2:=xlAscending, Key3:=Range("H9"), Order3:=xlAscending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets("Vereinstabelle").Select
Range("P3:AS20").Select
Selection.Sort Key1:=Range("Y3"), Order1:=xlDescending, Key2:=Range("X3") _
, Order2:=xlDescending, Key3:=Range("U3"), Order3:=xlDescending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets("Tabelle").Select
Range("Z2").Select
End Sub