Ein Diagramm mit 2 Sortierungen
Heinz
Hallo Leute
Ich habe ein Balkendiagramm das auch mit unteren Code zum sortieren funktioniert.
Nun möchte ich aber wenn ich Schaltfläche15 klicke mir das Makro Zuschauer_Auswärtsspiel()" sortiert anzeigt.
Wenn ich auf Schaltfläche14 klicke mir das Makro Zuschauer_Heimspiel()"
Also ein Diagramm mit 2 Code.
Hätte dazu bitte jemand einen Vorschlag ?
Gruß
Heinz
Option Explicit
Sub Zuschauer_Heimspiel()
'Sortieren für Zuschauer Heimspiele
Dim i As Integer
Dim Zuschauer As Sheets
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
Sub Zuschauer_Auswärtsspiel()
'Sortieren für Zuschauer Auswärtsspiele
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Range("J1:M36").Select
Selection.Sort Key1:=Range("M1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveSheet.Protect
Application.ScreenUpdating = True
End Sub
Anzeige