ich will mit folgendem Code überpüfen, ob die Zellen leer sind oder nicht! Klappt auch. Nur will ich aber nicht "toll" eintragen, sondern diese Zelle sperren. Dann aber funktioniert auch die Schleife nicht mehr. Der Hinweis lautet dann "Next ohne For".
Sub Einträge()
For Each c In Worksheets("Tabelle1").Range("A1:D10").Cells
If c.Value "" Then c.Value = "toll" Versuch: ActiveCell.Locked = True
Next for
End Sub
Komme da irgendwie nicht weiter!
vielen Dank
Gruß Michael