Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1584to1588
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
Inhaltsverzeichnis

Makros zum löschen eines Arbeitsblattes

Makros zum löschen eines Arbeitsblattes
16.10.2017 11:40:51
Bruno
Hallo zusammen,
Ich bräuchte dringend ein Makro, habe aber keinen Plan wie ich das zu schreiben habe. Über ein Excel-Addin erstelle ich einen Bericht mit diversen Tabellenblätter. Nun müsste ich alle Tabellenblätter die in Zeile 9 keinen Eintrag haben komplett löschen.
Kann mir jemand ein Makro dazu schreiben?
Vielen Dank und freundliche Grüsse
Bruno

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

Betreff
Datum
Anwender
Anzeige
AW: Makros zum löschen eines Arbeitsblattes
16.10.2017 11:58:19
UweD
Hallo
so?
Sub Tab_weg()
    On Error GoTo Fehler
    Dim T
    For Each T In ActiveWorkbook.Sheets
        If WorksheetFunction.CountA(T.Rows(9)) = 0 Then
            Application.DisplayAlerts = False
            T.Delete
        End If
    Next
    '*** Fehlerbehandlung 
    Err.Clear
Fehler:
    Application.DisplayAlerts = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Ein Formelergebnis, was "" liefert, wird als NICHT leer angesehen
LG UweD
Anzeige
AW: Makros zum löschen eines Arbeitsblattes
16.10.2017 13:59:40
Bruno
Supper, vielen Dank!
Hab mich zwar in der Zeile vertan :-)
Gruss
Bruno
Prima! Danke für die Rückmeldung. owT
16.10.2017 14:09:21
UweD

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige