Office: Zelle sperren / entsperren, wenn Wert in anderer Zelle sich ändert

Hallo zusammen,

ich habe mal wieder ein kleines Problem.
In der angehängten Tabelle soll Folgendes durch ein Makro ausgeführt werden:
Zellen E4:E7 entsperren, falls C8 >= 5 wird
Zellinhalt E4:E7 löschen und E4:E7 sperren sperren, falls C8 < 5 wird

Gleiches soll für die Zellen E13:E16 und später noch weitere darunter ergänzte Zellen gelten.

Mit worksheet_change funktioniert das nicht, da die Werte in C8 und C17 ja nicht manuell geändert werden, sondern sich durch Formeln ergeben.

Um das Ganze universell zu gestalten und nicht für den Bereich E13:E16 einen eigenen Code zu benötigen habe ich mir bildlich gesprochen Folgendes vorgestellt:
"Wenn der Wert in C... größer 0 wird und der Inhalt der Zelle A der gleichen Zeile leer ist, dann entsperre Zelle Offset (-4, 2), Offset (-3, 2), Offset (-2, 2)"

Das Ganze soll dann auch umgekeht funktionieren (Zellen sperren wenn, ...), das bekomme ich aber denke ich alleine zusammen gebastelt, nur der Anfang ist mir jetzt nicht klar, da ich hier mit worksheet_change nicht weiterkomme.

Vielen Dank für eure Hilfe und einen schönen Sonntag!

Gruß
Jochen

:)

 

Hallo,

das Event, das du suchst, heißt 'Worksheet_Calculate'.

Hat aber kein Target. Aber du sagst ja, du kriegst das hin. *wink.gif*

Sabina

 

Hallo,

versuche es mal so:

Code:

Anstelle der MsgBox kannst du die Zellen Sperren bzw. entsperren.

 

Hallo Klaus-Dieter,

danke, so funktioniert es auf jeden Fall schon mal, ich muss aber alle Bezüge manuell eingeben, d.h., wenn weitere Zellen unten dazu kommen, muss ich diese im Code hinzufügen. Das möchte ich eigentlich nicht ...

Daher hatte mir die vorher angesprochene Abfrage vorgestrebt:
"Wenn ein Wert in Spalte C größer 5 wird, während die Zelle A der selben Spalte leer ist, dann entsperre die Zellen in Spalte E 1,2,3 und 4 Zeilen oberhalb."

 

Hallo,

da gibt es schon entsprechende Möglichkeiten, dazu müsste man aber wissen, was wo erweitert werden soll / kann.

 

Hallo Sabina,
vielen Dank, aber so hatte ich das mit dem "Rest" nicht gemeint *wink.gif*
Genau da ist nämlich der Haken, dass 'Worksheet_Calculate' kein Target hat ...

 

die Zeilen 1-9 werden von einem anderen Arbeitsblatt kopiert und immer unterhalb eingefügt, wie oft, ist anfangs nicht bekannt.

 

Hallo,

dann verschiebt sich auch die Zelle mit der Summenformel, oder wie muss ich mir das vorstellen?

Ach ja, was soll den in den temporär gesperrten Zellen stehen?

 

Nein, die Zelle verschiebt sich nicht, es kommen weitere Zellen dazu, für die das Gleiche gelten soll.
Das Ganze soll eine Tabelle zur Kassenführung werden, in der die Zellen E4:E7 ein Dropdown-Menü zur Auswahl von Wechselgeld enthalten, diese Zellen sollen aber erst freigegeben werden, wenn der Kassenbestand C8 >= 5 ist.

Wenn eine weitere Veranstaltung hinzukommt, werden die Zeilen 1-9 durch ein Makro kopiert und unterhalb eingefügt.
Das oben beschriebene soll dann ebenso für die Zellen E13:E16 gelten, wenn der Kassenbestand C17 >= 5 ist.

 

Hat hierfür niemand mehr eine Idee?