Hallo,
Ich hab mal eine Frage bzw. ein Problem. Ich habe ein Makro aufgezeichnet, dieses funktioniert auch, wenn ich STRG+s drücke. Es ist unter Module gespeichert. Aber wie schaffe ich es, dass, wenn ich irgendeine Zelle ändere, das Makro automatisch ausgeführt wird. Ich benutze Excel 2003. Hier das Makro:
Sub Makro3()
'
' Makro3 Makro
' alle guppen ordentlich
'
' Tastenkombination: Strg+s
'
Range("A3:F8").Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Key2:=Range("E4") _
, Order2:=xlDescending, Key3:=Range("C4"), Order3:=xlDescending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
Range("A17:F22").Select
Selection.Sort Key1:=Range("A18"), Order1:=xlAscending, Key2:=Range("E18" _
), Order2:=xlDescending, Key3:=Range("C18"), Order3:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
Range("A31:F36").Select
Selection.Sort Key1:=Range("A32"), Order1:=xlAscending, Key2:=Range("E32" _
), Order2:=xlDescending, Key3:=Range("C32"), Order3:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
ActiveWindow.SmallScroll Down:=12
Range("A44:F47").Select
Selection.Sort Key1:=Range("A45"), Order1:=xlAscending, Key2:=Range("E45" _
), Order2:=xlDescending, Key3:=Range("C45"), Order3:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
ActiveWindow.SmallScroll Down:=-18
Range("A1").Select
End Sub
|