Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1136to1140
1136to1140
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen sperren

Forumthread: Zellen sperren

Zellen sperren
guffels
Hallo zusammen,
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
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellen sperren
10.02.2010 11:27:57
hary
Hallo
versuchs mal so. 

Sub n()
Dim c As Range
Worksheets("Tabelle1").Unprotect
Cells.Locked = False
For Each c In Worksheets("Tabelle1").Range("A1:D10").Cells
If c.Value  "" Then c.Locked = True
Next
Worksheets("Tabelle1").Protect
End Sub

gruss hary
Anzeige
AW: Zellen sperren
10.02.2010 11:29:45
welga
Hallo,
also bei mir funktioniert es so: 
Sub Einträge()
For Each c In Worksheets("Tabelle1").Range("A1:D10").Cells
If c.Value  "" Then
c.Locked = True
Else
c.Locked = False
End If
Next c
End Sub
Gruß
welga
AW: @Welga
10.02.2010 14:00:14
hary
Hallo Welga
ohne Protect?
soweit ich weiss geht Zelle sperren nur in Verbindung mit Schutz. Hab Deinen Code geteste und konnte ueberall reinschreiben.
gruss hary
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige