Blattschutz für bestimmte Zellen
jeron
ich habe ein kleines Problem und hoffe das jemand helfen kann.
Ich möchte mein aktives Tabellenblatt "Tabelle1" in Spalte A3:A500 Zeile für Zeile
auf Inhalt überprüfen.
Wenn ist Zelle leer dann soll sollen die Werte "PM" in Spalte A geschrieben werden und
"nein" in Spalte L (12)
Abschließend soll in der Zeile A:L der Haken bei (Format/Zelle - gesperrt) entfernt werden.
Folgenden Code habe ich gebastelt, funktioniert aber nicht.
Private Sub CommandButton2_Click()
Dim i As Variant
For i = 3 To 200
If ActiveSheet.Range(i, 1).Value "" Then
'Spalte A3:A200 soll zelle
'für Zelle auf Inhalt überprüft werden, wenn leer dann..
Range(i, 1).Value = "PM"
Range(i, 12).Value = "nein"
' Abschließend soll die Zeile von Spalte A bis L ausgewählt werden und der
' Haken bei gesperrt entfernt werden
Range(Cells(i, 1), Cells(i, 12)).Select
Selection.Locked = False
Selection.FormulaHidden = False
End If
Next
End Sub
Über jede Hilfe wäre ich sehr dankbar.
Viele Grüße aus München,
Jeron