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