Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle "nicht gesperrte Zellen" löschen

Forumthread: Alle "nicht gesperrte Zellen" löschen

Alle "nicht gesperrte Zellen" löschen
07.07.2004 11:51:26
Björn
Hallo zusammen.
Wie kann ich in einem gesperrten Arbeitsblatt alle "nicht gesperrten Zellen", also die, die ich noch editieren kann, auf einmal löschen?
Vielen Dank im voraus
Björn
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle "nicht gesperrte Zellen" löschen
andreas
hallo,
den bereich und das sheet musst noch anpassen

Sub wegmit()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Sheets("Tabelle3").Range("a1:E18")
For Each Zelle In Bereich
If Zelle.Locked = False Then Zelle.Value = ""
Next Zelle
End Sub

gruß
andreas e


http://www.fachforen.de
eine Linksammlung zu diversen fachforen
Anzeige
AW: Alle "nicht gesperrte Zellen" löschen
07.07.2004 13:20:55
Björn
Hat geklappt.
Vielen Dank für die schnelle Antwort
Gruss Björn
AW: Alle "nicht gesperrte Zellen" löschen
Udo
If Zelle.Locked = False Then Zelle.ClearContents
Dein Code führt dazu, dass sich Dateien aufblähen.
Udo
AW: Alle "nicht gesperrte Zellen" löschen
07.07.2004 15:43:22
Björn
Das geht auch.
Und sogar etwas schneller im gesamten Durchlauf.
Danke
Anzeige
;

Forumthreads zu verwandten Themen

Zellen formatieren, wenn Bedingung NICHT erfüllt
onkelbobby

Hallo,
habe folgendes Makro um Zellen farbig zu markieren:
Sub färben() Dim loletzte As Long Dim loletzte2 As Long Dim i As Integer Dim a As Integer Worksheets(2).Activate loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) loletzte2 = IIf(IsE...
02.09.2008 12:41:00
Thread-ID: 1006734
5 Beiträge
Zext in Zahl formatieren funktioniert nicht
Mandy

Hallo
ich möchte ein paar Spalten , wo zahlen drin stehen, aber als Text formatiert sind, per Makro in eine zahl mit Tausendertrennzeichen und 2 Nachkommastellen formatieren.
Dim c As Range
For Each c In Range("A10:A1111,D10:D1111")
If c "" And c "-" Then
c = c * 100
...
19.10.2009 14:11:50
Thread-ID: 1110648
8 Beiträge
Anzeige
Nicht gesperrte Zellen farblich hinterlegen
Loewelutz

Liebe Ex(cel)perten,
kleines Problem mit der Bitte um Hilfe:
Zur besseren Übersicht möchte ich in einer Tabelle nicht geperrte Zellen mit einer bedingten Formatierung farblich hinterlegen. Bei der Suche habe ich eine Formel für die Markierung gesperrter Zellen gefunden:
=ZELLE("Prot...
06.12.2009 19:47:44
Thread-ID: 1122090
3 Beiträge
Nicht gesperrte Zellen farblich hinterlegen
Loewelutz

Liebe Ex(cel)perten,
kleines Problem mit der Bitte um Hilfe:
Zur besseren Übersicht möchte ich in einer Tabelle nicht geperrte Zellen mit einer bedingten Formatierung farblich hinterlegen. Bei der Suche habe ich eine Formel für die Markierung gesperrter Zellen gefunden:
=ZELLE("Prot...
06.12.2009 20:04:13
Thread-ID: 1122093
5 Beiträge
Zellen formatieren geht nicht mehr
Pepi

Hallo Zusammen
Ich habe eine Tabelle mit VBA erstellt, jetzt kann ich die Tabelle innerhalb des Bereiches, wo die Tabelle Daten aufweisst nicht mehr formatieren.
Kontextmenu (Maus Rechtsklick) - Zellen formatieren
oder
Start - Schriftart, Ausrichtung, Zahl
bei all diesen Me...
19.07.2010 15:58:15
Thread-ID: 1167741
4 Beiträge
Zellen formatieren geht nicht mehr
Pepi

Hallo zusammen
Ich kopiere mit einem Makro Zellbereiche von einer Tabelle in eine Andere (neue Datei).
Nach dem ich die neue Datei gespeichert habe kann ich in den Menüs Start - Schriftart / Ausrichtung / Zahl
Bereiche meiner neuen Tabelle markieren und formatieren - doch sobald ich...
16.08.2010 14:33:40
Thread-ID: 1172430
6 Beiträge
Zellen formatieren geht nicht mehr
Pepi

Hallo zusammen
Bei der angehängten Tabelle kann innerhalb des Datenbereichs plus 1 Zeile/Spalte (rot) nicht formatiert werden
Start - Schriftart / Ausrichtung / Zahl oder rechte Maustaste
Die Tabelle wurde mit einem Makro erstellt - auch Speicherung unter Office 2007 ändert nichts....
16.11.2010 10:28:31
Thread-ID: 1187005
3 Beiträge
Anzeige
Zahl als Text kann nicht in Zahl formatiert werden
Roger

Hallo zusammen
Ich muss aus einer Text Datei Zahlen in Excel übernehmen, dazu muss ich die Zellen als Text formatiert haben. Wenn ich danach die Textformatierte Zahl umwandeln will in eine Zahl kommt die falsche Zahl dabei raus. 5100933050860998 wäre die richtige Zahl es kommt jedoch 5.1009...
15.02.2011 21:50:49
Thread-ID: 1201044
3 Beiträge
Daten lassen sich nicht als Zahl formatieren
Ingo

Hallo, ich brauche mal wieder Hilfe!
Ich habe aus einem Stundenplanprogramm die Daten in Excel exportiert. Es werden Tabellen und Spalten angelegt. Die Werte in den Zellen lassen sich aber nicht berechnen! Ich habe versucht sie als Zahlen zu formatieren, aber ohne Erfolg. Hat jemand eine I...
19.11.2011 20:50:15
Thread-ID: 1238582
3 Beiträge
Zugriff auf nicht gesperrte Zellen
Marcus

Ich möchte beim Öffnen meiner Arbeitsmappe nur auf nicht gesperrte Zellen zugreifen können. Kann mir jemand sagen, was ich eingeben muss? Vielen Dank vorab!
17.06.2002 12:09:28
Thread-ID: 129137
3 Beiträge
Bedingte Formatierung - Zelle schützen
sjdelphin

Hallo Zusammen,
ich hab da wieder ein Problem.
Ich möchte gerne eine Tabelle erstellen, in der Zellen gesperrt sind, sobald etwas drin steht. Das Problem dabei ist, dass zwei Tabellen miteinander korrespondieren.
Ich hoffe es wird klar, wenn ihr die beigefügte Tabelle anschaut.
...
04.05.2013 11:36:53
Thread-ID: 1311630
11 Beiträge
Nicht gesperrte Zellen löschen
Sven
Hallo zusammen!
Da sich meine Arbeitsmappe laufend ändert, weil ich an ihr noch verbesserungen im laufenden Betrieb vornehme, brauche ich irgendwann mal wieder eine Reinversion (Version ohne bereits vorgenommene Einträge) von ihr.
Ich würde sie gerne per Makro am Besten aufrufbar durch eine...
01.07.2014 13:10:18
Thread-ID: 1368385
5 Beiträge

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige