Habe unteren Code der mir Werte für ein Diagramm sortiert.
Nun möchte aber noch in dieses Makro, das mir dieses Diagramm auf Zelle A8 geschoben wird und die anderen beiden Diagramme nach unten geschoben werden.
Hintergrund: Ich habe 3 Diagramme, so muss ich immer zu den jeweiligen Diagramm scrollen.
Könnte mir bitte jemand weiterhelfen.
Sub Zuschauer_Heimspiel()
'Sortieren für Zuschauer Heimspiele
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Range("A1:D36").Select
Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveSheet.Protect
Application.ScreenUpdating = True
End Sub