Zellensperrung bei erreichter Anzahl

Question

Hallo zusammen,

ich brauche mal wieder Eure Hilfe für eine Formel:

Wenn ich z.B. in den Zellen A1 und B1 Zahlen schreibe, die zusammen genau 12 ergeben, sollen in den Nachbarzellen C1, D1 und E1 keine Zahlen mehr geschrieben werden können (also sozusagen "gesperrt" sein).
Liegt die Addition der beiden Zellen (also A1 + A2) unter 12, sollen die Zellen C1, D1 und E1 natürlich mit Zahlen belegt werden können.

Wie muss da die Formel lauten (bitte nicht VBA) bzw. kommt ggf eine Bedingte Formatierung, ein Verweis o.ä. in Betracht.
Wenn ja, wie würde das konkret gemacht.

Danke für Eure Hilfestellung.

Gruß Melina

Answer 1

Hallo Melina,

über eine Formellösung kannst Du keine Zellen sperren. Das geht nur mit VBA. Aber das willst Du ja nicht.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 2

Hallo Melina,

sollte doch eine VBA-Lösung für Dich in Betracht kommen, dann hier eine Lösungsmöglichkeit. Für diese Lösung musst Du alle Zellen markieren und unter "Zellen formatieren" im Register "Schutz" den Haken vor "Gesperrt" entfenren. Dann vergebe dem Blatt ein Blattschutz.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit

Const Passwort = "Hier das Passwort"

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") + Range("B1") = 12 Then
ActiveSheet.Unprotect Passwort
Range("C1:E1").Locked = True
ActiveSheet.Protect Passwort
Else
ActiveSheet.Unprotect Passwort
Range("C1:E1").Locked = False
ActiveSheet.Protect Passwort
End If
End SubIn der Zeile

Const Passwort = "Hier das Passwort"musst Du das Passwort des Tabellenblatts eintragen.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 3

Hallo ich nochmal!

Der VBA-Code gehört natürlich nicht in ein StandardModul, sondern in das VBA-Projekt des Tabellenblatts, in dem er wirken soll, sorry.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 4

Hallo Oliver,

ich pack das leider nicht mit VBA weil ich davon auch so gut wie überhaupt nichts kenne. Ich habe deshalb mal etwas gegoogelt und immer wieder Lösungshinweise in Richtung Gültigkeit ..... gelesen.
Es muss also eine Möglichkeit geben, über eine Formelzeile in Daten/Gültigkeit/Benutzerdefiniert/Formel... mein Anliegen zu lösen.
Vieleicht kann man in den Zellen C1, D1 und E1 irgendwie eine Formel mit WENN schreiben - etwa: "=WENN(A1+B1=>12;nichts)"
Sollte jemand eine Formel kennen, wäre ich natürlich sehr dankbar.

Lieben Gruß Melina

Answer 5

Hallo Melina,
Formel in Daten Gültigkeit eingeben.
Wenn die Summe von A1:B1 größer ist als 12, dann werden die vorher makierten Zellen gesperrt.

=SUMME($A$1:$B$1)<=11

Gruß
fedjo