Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Alle nicht gesperrten Zellen löschen

Forumthread: Alle nicht gesperrten Zellen löschen

Alle nicht gesperrten Zellen löschen
24.12.2014 15:33:23
Bernhard
Hallo VBA-Experten,
ich wähle in einem Blatt einen Zellenbereich aus z.B. Range(A1:G5). Darin befinden sich gesperrte und nicht gesperrte Zellen. Ich will alle Zellen löschen lassen, die nicht gesperrt sind. Wie mache ich das ?
Frohe Weihnachten
Bernhard

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle nicht gesperrten Zellen löschen
24.12.2014 15:41:27
hary
Moin
Du meinst Inhalt loeschen?
Dim Zelle As Range
For Each Zelle In Sheets("Tabelle1").Range("A1:G5") '---Blattname anpassen
If Zelle.Locked = False Then Zelle.ClearContents
Next Zelle

gruss hary

AW: Alle nicht gesperrten Zellen löschen
24.12.2014 15:43:39
Bernhard
Ja, ich meine Inhalt löschen.
Vielen Dank Harry. Ich glaube das passt für mich.
LG Bernhard
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Alle nicht gesperrten Zellen in Excel löschen


Schritt-für-Schritt-Anleitung

Wenn Du alle nicht gesperrten Zellen in einem bestimmten Bereich in Excel löschen möchtest, kannst Du das mit VBA (Visual Basic for Applications) tun. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke im Menü auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden VBA-Code in das Modul:

    Dim Zelle As Range
    For Each Zelle In Sheets("Tabelle1").Range("A1:G5") '---Blattname anpassen
       If Zelle.Locked = False Then Zelle.ClearContents
    Next Zelle
  4. Stelle sicher, dass Du den Blattnamen ("Tabelle1") und den Zellbereich ("A1:G5") anpasst, damit sie zu Deinen Anforderungen passen.

  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Drücke ALT + F8, wähle das Makro aus und klicke auf Ausführen.

Jetzt sollten alle nicht gesperrten Zellen in dem angegebenen Bereich gelöscht sein.


Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 1004: Anwendung oder Objekt definiert Fehler"

    • Lösung: Überprüfe, ob der Blattname korrekt ist und ob der Zellbereich existiert. Achte darauf, dass Du den Blattnamen genau so schreibst, wie er in Excel angezeigt wird.
  • Fehler: Es passiert nichts, wenn das Makro ausgeführt wird.

    • Lösung: Stelle sicher, dass die Zellen, die Du löschen möchtest, tatsächlich nicht gesperrt sind. Überprüfe auch, ob das Makro in der richtigen Excel-Version ausgeführt wird.

Alternative Methoden

Falls Du keine VBA-Lösungen verwenden möchtest, kannst Du auch die Filterfunktion nutzen:

  1. Wähle den Zellbereich aus.
  2. Gehe zu Daten > Filter.
  3. Filtere die gesperrten Zellen heraus.
  4. Lösche die gefilterten nicht gesperrten Zellen manuell.

Diese Methode erfordert jedoch mehr manuelle Schritte und ist weniger automatisiert als die VBA-Lösung.


Praktische Beispiele

Angenommen, Du hast einen Bereich von A1 bis G5 mit verschiedenen Zellen, von denen einige gesperrt sind. Mit dem oben genannten VBA-Code kannst Du schnell alle nicht gesperrten Zellen leeren, ohne sie einzeln auswählen zu müssen.

Zusätzlich kannst Du den Code anpassen, um auch andere Aktionen auszuführen, wie z.B. die Zellen zu formatieren oder Daten zu kopieren, bevor Du sie löschst.


Tipps für Profis

  • Backup machen: Bevor Du das Makro ausführst, erstelle immer eine Sicherungskopie Deines Excel-Dokuments.
  • Makros speichern: Speichere Deine Excel-Datei im .xlsm-Format, um sicherzustellen, dass die Makros erhalten bleiben.
  • Makro anpassen: Du kannst den Code erweitern, um mehrere Bereiche in einem Schritt zu bearbeiten, indem Du mehrere Range-Objekte einfügst.

FAQ: Häufige Fragen

1. Kann ich diesen Code auch für andere Zellbereiche verwenden? Ja, Du kannst den Zellbereich in der Range-Anweisung anpassen, um andere Bereiche zu bearbeiten.

2. Was passiert, wenn ich das Makro auf gesperrte Zellen anwende? Das Makro ignoriert gesperrte Zellen und löscht nur die Inhalte der nicht gesperrten Zellen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige