Zelle bedingt sperren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Markus, hallo selli,
Markus, wenn du dir den Namen des Makros anschaust, wirst du sehn dass es sich hier um das Change-Ereignis handelt, welches nur bei einer Änderung in einer Zelle auftritt. Sprich du müsstest jetzt deine Werte erneut in die Zellen schreiben damit der Effekt wirksam wird.
Sellis Makro ist jedoch nur für eine Zelle zugleich ausgelegt. Abgesehen davon dass Spalte M den Index 13 und N 14 trägt und nicht 14 bzw. 15, müsstest du jetzt alle Zellen nacheinander kopieren und wieder einfügen, sonst schmiert dir das Makro ab.
Ich habe daher den Code modifiziert, du kannst damit einfach die komplette Spalte D kopieren und wieder einfügen, damit wird der Effekt für alle betroffenen Zellen im definierten Bereich wirksam.
lg Steve

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range, Zelle As Range
Set Bereich = Range("D12:D95")
If Not Intersect(Target, Bereich) Is Nothing Then
ActiveSheet.Unprotect
For Each Zelle In Intersect(Target, Bereich)
Select Case LCase(Zelle)
Case "ja"
Cells(Zelle.Row, 13).Locked = True
Cells(Zelle.Row, 14).Locked = False
Case "nein"
Cells(Zelle.Row, 13).Locked = False
Cells(Zelle.Row, 14).Locked = True
Case Else
Cells(Zelle.Row, 13).Locked = False
Cells(Zelle.Row, 14).Locked = False
End Select
Next Zelle
ActiveSheet.Protect
End If
End Sub

Hallo Markus,
hast du das Makro auch im Code-Bereich der Tabelle in der es aktiv sein soll abgelegt? Es muss zwingend dahin und nicht in ein Modul! Registerkarte des Blattes rechtsklicken, "Code-Anzeigen" wählen und dort einfügen. Anschließend die komplette Spalte D kopieren und an gleicher Stelle wieder einfügen um eine Änderung in allen Zellen zu simulieren.
Der Blattschutz wird am Ende des Makros automatisch gesetzt, ob er vorher drinn war oder nicht spielt keine Rolle. Dass du Spalte D oder andere Zellen in welchen du schreiben möchtest vom Blattschutz ausnimmst versteht sich, sonst könntest du ja garkein "Ja" bzw. "Nein" eingeben.
"Ja" bzw. "Nein" können sowohl komplett als auch teilweise in Groß- als auch Kleinbuchstaben angegeben werden ("jA", "JA", "Ja", "ja"), aber voran-/hintenangestellte Leerzeichen zusätzliche/fehlende Buchstaben bzw. Betonungszeichen auf Buchstaben sind nicht zulässig. Prüfe nochmal die Zellen ob sich da nicht was versteckt hat.
Die Werte sind aber nicht aus einer Formel, oder? Ich habe aus deiner Beschreibung händige Eingaben oder Dropdowns angenommen.
Andere Fehlerquellen fallen mir gerade nicht ein, in meinem kurzen Test gestern hat es einwandfrei funktioniert.
Für den Case "Else" (ansonsten) habe ich den Blattschutz aus den Zellen nehmen lassen (False). Wenn du ihn stattdessen aktiv haben möchtest änderst du bitte die beiden False auf True.
lg Steve

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread