Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Toggle Button mit drei zustände.
Normale Version: Toggle Button mit drei zustände.
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2

Niko

03.02.2019, 19:38
eureka, eureka :23:

jetzt funkts wie ich es möchte Smile


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 = "Middle Picture"

 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 = "Small Picture"

 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 = "Big Picture"

 End If
 ActiveWorkbook.ActiveSheet.Protect ("1234")
End Sub

snb

03.02.2019, 21:43
Zu früh

Statt

Code:
ActiveSheet.Range("E13:E23, F13:F23").Cells.Locked = True
 ActiveSheet.Range("J4:J23, K4:K23").Cells.Locked = True

Code:
ActiveSheet.Range("E13:F23,J4:K23").Locked = True
Seiten: 1 2
Clever-Excel-Forum > Office-Anwendungen > Excel > Toggle Button mit drei zustände.