Clever-Excel-Forum

Hallo an alle,

habe ein Toggle Button, erstellt soweit mein wissen es Geschafft hat mit den geschippel (copy & paste), erstellt.
Habe folgendes Problem...
Möchte der Zellen Bereich D34:I35 gesperrt haben wenn der Zellen Bereich I37:I38 geöffnet ist, bekommen es mit mein limitiertes wissen (milde ausgedrückt) nicht hin.

Anbei der VBA Code:
Im Grunde einfach gestrickt, wenn ein Bereich in ein zustand gesperrt ist soll der andere Bereich entsperrt sein.
In eine zustand andere Farbe als in vorherigen.
Eine Zelle D39 soll je nach zustand Toggle Button, "1" oder "0" eingefügt werden (ist für Bedingte Formatierung).
Am Ende jeder Action soll sich das Arbeitsblatt im Gesperrten zustand sein.

Code:
Private Sub ToggleButton1_Click()

ActiveSheet.Unprotect ("1234")

ToggleButton1.Caption = IIf(ToggleButton1, "Anklicken nur wenn ", "IST Geöffnet für ")

Range("I37:I38, D34:I35").Locked = Not ToggleButton1

If ToggleButton1.Value = True Then

Worksheets("Startseite").Range("D39") = "1"

ToggleButton1.BackColor = RGB(255, 153, 0)

Else

Worksheets("Startseite").Range("D39") = "0"

ToggleButton1.BackColor = RGB(255, 192, 0)

End If

[f3].Select

ActiveSheet.Protect ("1234")

End Sub

Jede Hilfe ist Willkommen Smile

Danke,

Niko

Hallo Niko,

statt

Code:
Range("I37:I38, D34:I35").Locked = Not ToggleButton1

dann so:

Code:
Range("I37:I38").Locked = Not ToggleButton1

Range("D34:I35").Locked = ToggleButton1

Gruß Uwe

Danke, Super...frage mich warum ich nicht darauf gekommen bin

Danke nochmals

Niko

Niko

Kuwer

Niko