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

VBA Alle Zellen löschen mit Ausnahme der 1. Zeile

Forumthread: VBA Alle Zellen löschen mit Ausnahme der 1. Zeile

VBA Alle Zellen löschen mit Ausnahme der 1. Zeile
16.12.2003 11:17:48
Christina
Hallo,

ich möchte in einem Tabellenblatt alle Zellen mit Ausnahme der 1. Zeile löschen. Gehts es auch ohne genaue Range-Angabe wie hier: Sheets("Gesamt").Range("a2:i30000").ClearContents? Gibts es irgendeine Möglichkeit um zu sagen "alle Zellen bis auf ..."? Alles was ich bis jetzt gefunden habe ist total lang und kompliziert. Es muss doch auch einfacher gehen, oder?

Danke!
Christina
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Alle Zellen löschen mit Ausnahme der 1. Zeile
16.12.2003 11:22:13
AndreasS
Hallo,

Rows("2:65536").Select
Selection.ClearContents

mfg
AW: Rows("2:65536").ClearContents
16.12.2003 11:40:13
Galenzo
Rows("2:65536").ClearContents
AW: Rows("2:65536").ClearContents
16.12.2003 11:46:40
AndreasS
Ok... ist kürzer...
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Alle Zellen in Excel löschen, außer der ersten Zeile


Schritt-für-Schritt-Anleitung

Um in Excel alle Zellen zu löschen, außer der ersten Zeile, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und das betreffende Arbeitsblatt.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

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

  4. Füge den folgenden Code in das Modul ein:

    Sub AlleZellenLoeschenBisAufErsteZeile()
       Rows("2:65536").ClearContents
    End Sub
  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Um das Makro auszuführen, drücke ALT + F8, wähle AlleZellenLoeschenBisAufErsteZeile und klicke auf Ausführen.

Dieser Code löscht alle Zellen unterhalb der ersten Zeile. Die Verwendung von 65536 bezieht sich auf die maximale Anzahl an Zeilen in älteren Excel-Versionen. In neueren Versionen kann die Zahl variieren.


Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 1004"

    • Lösung: Stelle sicher, dass Du das richtige Arbeitsblatt ausgewählt hast, bevor Du das Makro ausführst.
  • Problem: Es werden nicht alle Zellen gelöscht

    • Lösung: Überprüfe den Code und stelle sicher, dass der Bereich korrekt angegeben ist. Möglicherweise möchtest Du auch den Bereich anpassen, wenn Deine Excel-Version mehr Zeilen unterstützt.

Alternative Methoden

Falls Du kein VBA verwenden möchtest, kannst Du auch manuell alle Zellen unterhalb der ersten Zeile löschen:

  1. Markiere die zweite Zeile (oder die erste Zeile unterhalb der Überschrift).
  2. Halte Shift gedrückt und drücke die Pfeiltaste nach unten, um alle Zellen zu markieren, die Du löschen möchtest.
  3. Drücke Entf, um den Inhalt zu löschen.

Diese Methode ist jedoch weniger effizient, wenn Du viele Zeilen hast.


Praktische Beispiele

Hier sind einige Anwendungsmöglichkeiten des VBA-Codes:

  • Szenario 1: Du hast ein Datenblatt und möchtest regelmäßig die gesammelten Daten unter der ersten Zeile löschen.
  • Szenario 2: Du arbeitest mit einem Bericht und möchtest sicherstellen, dass die Kopfzeile immer bestehen bleibt, während der Rest der Daten gelöscht wird.

In beiden Fällen hilft der VBA-Code, um schnell alle Zellen unterhalb der ersten Zeile zu leeren.


Tipps für Profis

  • Verwende den Shortcut F5, um das Makro im VBA-Editor schnell auszuführen.
  • Du kannst den Code erweitern, um spezifische Bedingungen für das Löschen von Zellen einzufügen, z. B. nur Zellen mit bestimmten Inhalten zu löschen.
  • Speichere Deine Excel-Datei als .xlsm, um die Makros zu behalten.

FAQ: Häufige Fragen

1. Frage: Kann ich den Code anpassen, um nur bestimmte Zeilen zu löschen?
Antwort: Ja, Du kannst den Bereich in Rows("2:65536").ClearContents anpassen, um nur bestimmte Zeilen zu löschen.

2. Frage: Funktioniert dieser VBA-Code auch in Excel 365?
Antwort: Ja, der Code funktioniert in allen Excel-Versionen, die VBA unterstützen, einschließlich Excel 365.

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