Habe diesen kleine VBA Code gebastelt (Copy/Paste System - viele Helfer die ich danke :-).
Es ist ein Toggle Button in 3 zuständen und funktioniert super!
möchte aber in den 2 zuständen hinzufügen das eine gewisse Spalte von ein anderen Blatt in der Mappe ausblendet und in 1 zustand eingeblendet bleibt.
wie kann ich das mit den vorhandenen Code hinbekommen?
Vorhandener code
Private Sub ToggleButton1_Change()
ActiveWorkbook.ActiveSheet.Unprotect ("1234")
Dim xAddress As String
xAddress = "I:M"
ActiveSheet.Range("E13:E23, F13:F23").Cells.Locked = True
ActiveSheet.Range("J4:J23, K4:K23").Cells.Locked = True
If IsNull(ToggleButton1.Value) Then
Application.ActiveSheet.Columns(xAddress).Hidden = True
ActiveSheet.Shapes("Textfeld 18").Visible = False
ActiveSheet.Shapes("Grafik 25").Visible = False
ActiveSheet.Range("E13:E23, F13:F23").Cells.Locked = False
ActiveSheet.Range("J4:J23, K4:K23").Cells.Locked = True
ToggleButton1.Caption = "Mittlere Klasse"
ElseIf ToggleButton1.Value = False Then
Application.ActiveSheet.Columns(xAddress).Hidden = True
ActiveSheet.Shapes("Textfeld 18").Visible = True
ActiveSheet.Shapes("Grafik 25").Visible = True
ToggleButton1.Caption = "Kleine Klasse"
ElseIf ToggleButton1.Value = True Then
Application.ActiveSheet.Columns(xAddress).Hidden = False
ActiveSheet.Shapes("Textfeld 18").Visible = False
ActiveSheet.Shapes("Grafik 25").Visible = False
ActiveSheet.Range("E13:E23, F13:F23").Cells.Locked = False
ActiveSheet.Range("J4:J23, K4:K23").Cells.Locked = False
ToggleButton1.Caption = "Große Klasse"
End If
ActiveWorkbook.ActiveSheet.Protect ("1234")
End Sub
Danke im Voraus,
Niko