Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2024 19:26:13
neue Monatsdaten mit Pivot-Tabelle auswerten
14.05.2024 17:36:21
Überprüfung des Datenformates der Zwischenablage
14.05.2024 15:50:45
Megensum pro Lieferant aufgrund Datum An- und Auslieferung
14.05.2024 15:38:40
Makro und Formeln zusammenführen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1632to1636
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige