Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: nicht gesperrte Zellen löschen

nicht gesperrte Zellen löschen
21.02.2008 16:27:00
Dirk
Hallo Spezialisten!
Ich habe ein Problem und brauch eure Hilfe.
Ich habe ein Modul dass im angegeben Bereich alle Zellen löscht, die nicht gesperrt sind.
Das Modul funktioniert so auch, aber sobald im Bereich verbundene Zellen vorkommen, die nicht gesperrt sind, bekomme ich eine Fehlermeldung.
Wie kann ich dieses Problem beseitigen?
Das Modul hat folgendem Inhalt:

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


Schon mal vielen Dank
Gruß
Dirk

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: nicht gesperrte Zellen löschen
21.02.2008 17:03:00
Kay
Hallo Dirk,
so:
If Zelle.Locked = False Or Zelle.MergeArea.Locked = False Then Zelle.MergeArea.ClearContents
MfG
Kay

AW: nicht gesperrte Zellen löschen
21.02.2008 17:33:00
Dirk
Hallo Kay,
vielen Dank für die schnelle Antwort! :-)
Es funktioniert super.
DANKE!!!!
LG
Dirk
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Nicht gesperrte Zellen in Excel löschen


Schritt-für-Schritt-Anleitung

Um nicht gesperrte Zellen in Excel zu löschen, kannst du das folgende VBA-Modul verwenden. Dieses Modul löscht alle Inhalte in einem bestimmten Bereich, solange die Zellen nicht gesperrt sind. Beachte, dass du bei verbundenen Zellen eine Anpassung vornehmen musst, um Fehler zu vermeiden.

  1. Öffne Excel und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
  2. Klicke auf Einfügen und dann auf Modul.
  3. Füge den folgenden Code in das Modul ein:
Sub wegmit()
    Dim Bereich As Range
    Dim Zelle As Range
    Set Bereich = Sheets("Tabelle1").Range("A1:E18")
    For Each Zelle In Bereich
        If Zelle.Locked = False Or Zelle.MergeArea.Locked = False Then
            Zelle.MergeArea.ClearContents
        End If
    Next Zelle
End Sub
  1. Schließe den VBA-Editor.
  2. Führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.

Häufige Fehler und Lösungen

  • Fehlermeldung bei verbundenen Zellen: Wenn du versuchst, nicht gesperrte verbundene Zellen zu löschen, kann es zu einer Fehlermeldung kommen. Verwende den angepassten Code aus der Schritt-für-Schritt-Anleitung, um dies zu vermeiden.

  • Makro funktioniert nicht: Vergewissere dich, dass die Zellen, die du bearbeiten möchtest, nicht geschützt sind. Überprüfe auch, ob du das Makro in der richtigen Tabelle ausführst.


Alternative Methoden

Falls du kein VBA verwenden möchtest, kannst du auch manuell vorgehen:

  1. Wähle den gewünschten Bereich aus.
  2. Gehe zu Start > Suchen und Auswählen > Gehe zu Spezial.
  3. Wähle Entsperrte Zellen und klicke auf OK.
  4. Drücke die Entf-Taste, um die Inhalte der nicht gesperrten Zellen zu löschen.

Diese Methode ist jedoch weniger effizient, wenn du mit großen Datenmengen arbeitest.


Praktische Beispiele

Angenommen, du hast eine Tabelle mit Preisen, und einige Zellen sind gesperrt, um versehentliche Änderungen zu vermeiden. Wenn du die nicht gesperrten Zellen löschen möchtest, kannst du das oben genannte VBA-Skript verwenden, um sicherzustellen, dass die Preise in den gesperrten Zellen erhalten bleiben und nur die freigegebenen Zellen gelöscht werden.


Tipps für Profis

  • Backup erstellen: Vor dem Ausführen von Makros ist es ratsam, eine Sicherungskopie deiner Excel-Datei zu erstellen, um Datenverlust zu vermeiden.
  • Makros automatisieren: Du kannst Makros in Excel auch automatisieren, indem du sie an Ereignisse wie das Öffnen der Datei oder das Ändern einer Zelle bindest.
  • Verwendung von Arrays: Wenn du mit großen Datenmengen arbeitest, kann die Verwendung von Arrays zur Verarbeitung der Daten die Leistung deines Makros erheblich verbessern.

FAQ: Häufige Fragen

1. Kann ich das Makro auch in Excel Online verwenden?
Leider unterstützt Excel Online keine VBA-Makros. Du kannst jedoch ähnliche Funktionen mit Power Automate erstellen.

2. Was passiert mit Formeln in nicht gesperrten Zellen?
Das Makro löscht nur die Inhalte. Wenn eine Zelle eine Formel enthält und nicht gesperrt ist, wird die Formel ebenfalls gelöscht.

Beliebteste Forumthreads (12 Monate)

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