Ich habe 4 Diagramme,wobei ich ein jedes Diagramm bei Klick mit einen Makro versehen habe.
Nun möchte ich ein Makro für alle 4 Diagramme haben.
Also egal auf welches Diagramm ich klicke,sollten alle 4 Makros in Einsatz kommen.
Habe selber schon getestet,leider ohne Erfolg.
Könnte mir dazu bitte jemand eine Hilfe anbieten?
Gruß heinz
Sub Diagramm_Gesperrte()
Application.ScreenUpdating = False
Sheets("Auswertung").Unprotect ' Password:="vetro"
Range("A2:K16").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("E20").Select
Sheets("Auswertung").Protect ' Password:="vetro"
Application.ScreenUpdating = True
End Sub
Sub Diagramm_Nachsortierte()
Application.ScreenUpdating = False
Sheets("Auswertung").Unprotect ' Password:="vetro"
Range("A2:K16").Select
Selection.Sort Key1:=Range("F2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("E20").Select
Sheets("Auswertung").Protect ' Password:="vetro"
Application.ScreenUpdating = True
End Sub
Sub Diagramm_NS()
Application.ScreenUpdating = False
Sheets("Auswertung").Unprotect ' Password:="vetro"
Range("A2:K16").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("E20").Select
Sheets("Auswertung").Protect ' Password:="vetro"
Application.ScreenUpdating = True
End Sub
Sub Diagramm_Personal()
Application.ScreenUpdating = False
Sheets("Auswertung").Unprotect ' Password:="vetro"
Range("A2:K16").Select
Selection.Sort Key1:=Range("K2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("E20").Select
Sheets("Auswertung").Protect ' Password:="vetro"
Application.ScreenUpdating = True
End Sub