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

Leere Seiten löschen

Forumthread: Leere Seiten löschen

Leere Seiten löschen
04.07.2018 14:06:35
Jasmin
Hallo
Ich habe ein Programm geschrieben, welches je nach Abfrage Tabellen löscht oder hinzufügt. Nach dem Abspielen des Makros habe ich am Ende manchmal 2 Seiten noch übrig die leer sind. Gibt es eine Möglichkeit, eine Prüfung durchzuführen die ungefähr so aussieht: Wenn eine Seite komplett leer ist (wobei Kopf und Fußzeile vorhanden sind), lösche diese Seite.
Im Internet habe ich nur die Möglichkeit gefunden, diese Prüfung mit leeren Zeilen zu kontrollieren aber ich habe zwischendurch viele leere Zeilen und dadurch würde er auch wichtige Informationen löschen. Also er soll wirklich nur eine Seite löschen, wenn die komplette Seite leer ist.
lg Jasmin
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Leere Seiten löschen
04.07.2018 14:36:14
EtoPHG
Hallo Jasmin,
Immer wieder schön, wenn Code geschrieben wird und im Verborgenen bleibt!
Als Ansatz: 
Sub wegMitLeerenWorksheets()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
If ws.UsedRange.Cells.Count = 1 And IsEmpty(ws.UsedRange.Cells(1, 1)) Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub
Gruess Hansueli
Anzeige
AW: Leere Seiten löschen
04.07.2018 14:45:10
UweD
Hallo
Sub TT()
    Dim RNG As Range
    With Sheets("Tabelle3")
        
        Set RNG = .UsedRange
        If RNG.Count = 1 And IsEmpty(RNG) Then 'Es gibt nur eine Zelle (A1) und die ist ohne Inhalt 
            MsgBox "leer"
        End If
        
    End With
End Sub
Beispiel für Tabelle3
LG UweD
Anzeige
AW: Leere Seiten löschen
04.07.2018 15:02:30
Daniel
Hi
dim sh as worksheet
for each sh in thisworkbook.Worksheets
if worksheetfunction.CountA(sh.usedrange) = 0 then sh.delete
next
Gruß Daniel
;
Anzeige
Anzeige

Infobox / Tutorial

Leere Seiten in Excel effizient löschen

Schritt-für-Schritt-Anleitung

Um leere Seiten in Excel zu löschen, kannst du die folgenden Schritte befolgen:

  1. Öffne Excel und lade die Datei, aus der du die leeren Seiten entfernen möchtest.

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

  3. Füge ein neues Modul hinzu: Klicke im Menü auf Einfügen und dann auf Modul.

  4. Kopiere den folgenden Code in das Modul:

    Sub wegMitLeerenWorksheets()
   Dim ws As Worksheet
   Application.DisplayAlerts = False
   For Each ws In ThisWorkbook.Worksheets
       If ws.UsedRange.Cells.Count = 1 And IsEmpty(ws.UsedRange.Cells(1, 1)) Then
           ws.Delete
       End If
   Next ws
   Application.DisplayAlerts = True
End Sub

  5. Führe das Makro aus: Drücke F5 oder gehe zu Ausführen und wähle Sub/UserForm ausführen.

  6. Überprüfe deine Arbeitsmappe: Die leeren Seiten sollten nun entfernt sein.

Häufige Fehler und Lösungen

  • Fehler: „Leere Seite lässt sich nicht löschen“
    Lösung: Stelle sicher, dass die Seite tatsächlich leer ist. Manchmal können unsichtbare Zeichen oder Formate vorhanden sein.

  • Fehler: „Makro funktioniert nicht richtig“
    Lösung: Überprüfe den Code auf Eingabefehler und stelle sicher, dass du das richtige Arbeitsblatt bearbeitest.

Alternative Methoden

Falls du keine VBA-Makros verwenden möchtest, kannst du auch manuell vorgehen:

  1. Seitenlayout-Ansicht öffnen: Gehe zu Ansicht > Seitenlayout.
  2. Leere Seiten identifizieren: Suche nach Seiten, die wirklich leer sind.
  3. Leere Seiten löschen: Klicke mit der rechten Maustaste auf die Registerkarte der leeren Seite und wähle Löschen.

Zusätzlich kannst du die Funktion Drucken verwenden, um leere Seiten zu entfernen, indem du die Option „Leere Seiten drucken entfernen“ aktivierst.

Praktische Beispiele

Um zu demonstrieren, wie man leere Seiten löscht, hier einige Beispiele:

  • Beispiel 1: Ein Arbeitsblatt hat eine leere Seite am Ende. Mit dem oben genannten VBA-Skript kannst du diese Seite einfach entfernen.

  • Beispiel 2: Wenn du mehrere leere Seiten hast, kannst du den Code anpassen, um alle leeren Seiten auf einmal zu löschen:

    Sub alleLeerenSeitenLoeschen()
   Dim ws As Worksheet
   Application.DisplayAlerts = False
   For Each ws In ThisWorkbook.Worksheets
       If Application.WorksheetFunction.CountA(ws.Cells) = 0 Then
           ws.Delete
       End If
   Next ws
   Application.DisplayAlerts = True
End Sub

Tipps für Profis

  • Backup erstellen: Bevor du das Skript ausführst, erstelle ein Backup deiner Excel-Datei, um Datenverlust zu vermeiden.
  • Makros anpassen: Du kannst die VBA-Codes anpassen, um spezifische Blätter oder Bedingungen zu berücksichtigen.
  • Leere Seiten ausblenden: Wenn du leere Seiten nicht löschen, sondern nur ausblenden möchtest, kannst du die Sichtbarkeit der Arbeitsblätter ändern.

FAQ: Häufige Fragen

1. Wie kann ich leere Seiten in einem bestimmten Bereich löschen?
Du kannst den VBA-Code anpassen, um nur bestimmte Blätter zu überprüfen und zu löschen.

2. Was kann ich tun, wenn das Löschen einer leeren Seite nicht funktioniert?
Überprüfe, ob die Seite wirklich leer ist oder ob es unsichtbare Inhalte gibt, die das Löschen verhindern.

Beliebteste Forumthreads (12 Monate)

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