Farbige Zellen per VBA sperren

Hallo Zusammen,
ich bin blutige VBA-Anfängerin und bräuchte bitte eure Hilfe bei der Zellfarbeabhängigen dynamischen Sperre von Zellen.
Also was will ich:
In einer Range ("A1:B10") gibt es graue und weiße Felder. Ich möchte nun, dass die weißen Felder ausgefüllt werden können, auch wenn auf dem Reiter ein Blattschutz liegt.
(Alternative sollen nur die grauen Zellen zum Schreiben gesperrt werden)
Aber: Es sind nicht immer die gleichen Zellen grau oder weiß - deshalb brauche ich die Dynamik, sonst könnte ich ja einzelne Zellen immer schützen/nicht schützen.
Ich habe nachstehenden Forumsbeitrag gefunden - bekomme ihn aber nicht adaptiert (ich sage ja: blutige Anfängerin ;) )
https://www.herber.de/forum/archiv/1512to1516/1513122_farbige_Zellen_Sperren_VBA.html#1513125
Ich bin wirklich dankbar für eine idiotensichere Hilfe.
Grüße,
Lara

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Unit() Dim Zelle As Range With ActiveSheet .Unprotect 'Blattschutz aufheben .Cells.Locked = True 'alle Zellen im Blatt sperren For Each Zelle In .Range("A1:B10") 'Zellen mit einer Hintergrundfarbe sperren Zelle.Locked = (Zelle.Interior.Color -4142) Next Zelle .Protect 'Blattschutz setzen End With End Sub

Sub Unit() Dim Zelle As Range, Zaehler As Integer, Wert As Integer Wert = CInt(Sheets("Steuerblattname").Range("A2")) 'Anpassen With ActiveSheet .Unprotect 'Blattschutz aufheben .Cells.Locked = True 'alle Zellen im Blatt sperren For Each Zelle In .Range("A1:D1") Zaehler = Zaehler + 1 'Zellen nach Prüfung sperren Zelle.Locked = (Zaehler

Danke GerdL für deine Hilfe hier =)
Ich versuche gerade, dass die Spalten vor dem Sperren noch zu kopieren und als Wert wieder einzufügen.
Dank deiner Hilfe sieht das ganze mittlerweile so aus:


Dim Zelle As Range, Zaehler As Integer, Wert As Integer
Wert = CInt(Sheets("Steuerung").Range("D4")) 'Anpassen
With ActiveSheet
.Unprotect  'Blattschutz aufheben
.Cells.Locked = True  'alle Zellen im Blatt sperren
For Each Zelle In .Range("F5:Q5")
Zaehler = Zaehler + 1
'Zellen nach Prüfung sperren
Zelle.EntireColumn.Copy = (Zaehler

Dieser Part hier läuft leider auf Fehler:

Zelle.EntireColumn.Copy = (Zaehler

Kann man mein Problem überhaupt so lösen?
Vielen Dank.
Schöne Grüße
Lara

Dim Zelle As Range, Zaehler As Integer, Wert As Integer Wert = CInt(Sheets("Steuerung").Range("D4")) 'Anpassen With ActiveSheet .Unprotect 'Blattschutz aufheben .Cells.Locked = True 'alle Zellen im Blatt sperren For Each Zelle In .Range("F5:Q5") Zaehler = Zaehler + 1 'Zellen nach Prüfung sperren Zelle.EntireColumn.Copy = (Zaehler

Sub Unit1() Dim Zelle As Range, Zaehler As Integer, Wert As Integer Wert = CInt(Sheets("Steuerung").Range("D4")) 'Anpassen With ActiveSheet .Unprotect 'Blattschutz aufheben .Cells.Locked = True 'alle Zellen im Blatt sperren .Range("F:Q").Copy .Range("F:Q").PasteSpecial xlPasteValues Application.CutCopyMode = False For Each Zelle In .Range("F5:Q5") Zaehler = Zaehler + 1 'Zellen nach Prüfung sperren Zelle.EntireColumn.Locked = (Zaehler

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Farbige Zellen per VBA sperren

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread