Das Erstellen eines commandButton verlief ohne Problem. Als ich jedoch die Aufzeichnung des Makro in dieses Button kopierte, lies sich der ganze aufgezeichnete vorgang nicht mehr ausführen. Führe ich jedoch den Makro mit der von mir definierten Tastenkombination Crtl+g aus wird das Makro problemlos ausgeführt.
Gesamtsortierung Makro
' Makro am 19.09.2002 von Admin aufgezeichnet
'
'
Sheets("Gewehr").Select
Range("A3:F17").Select
Selection.Sort Key1:=Range("F3"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("G9").Select
Sheets("Pistole").Select
Range("A3:F17").Select
Selection.Sort Key1:=Range("F3"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("G9").Select
Sheets("Schrot").Select
Range("A3:F17").Select
Selection.Sort Key1:=Range("F3"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("G9").Select
Sheets("Gesamt").Select
Range("A3:F17").Select
Selection.Sort Key1:=Range("F3"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("G10").Select