leere Seiten in Arbeitsblätter löschen

[stivosi]

Ich möchte in der Tabelle 2004 alle Seiten bis auf Seite 1 löschen. Wie geht das?
Danke für Hilfe

[marose67]

Hallo,
Tabellenblätter markieren (Shift-Taste)und rechte Maustaste drücken, dann auf "lÖSCHEN"

Gruß
Marcus

[UweD]

Hallo

z.B. so

Code:

Sub Seiten_löschen()
    Dim SH
   
    Application.DisplayAlerts = False
    For Each SH In ThisWorkbook.Sheets
        If Sheets.Count = 1 Then
            MsgBox "Nur noch ein Blatt übrig"
            Exit Sub
        End If
        If SH.Name <> "TabelleBleibt" Then
            SH.Delete
        End If
    Next
    Application.DisplayAlerts = True
       
End Sub

LG UweD

[stivosi]

Bei diesem Löschbefehl werden auch die Daten auf Seite 1 gelöscht!

[marose67]

Hallo,

das Du nach einem Makro fragst habe ich irgendwie nicht lesen können. Du musst natürlich:

Code:

If SH.Name <> "TabelleBleibt" Then

umbenennen. Wir wissen nicht wie dein erstes Blatt heißt. Knappe Anleitung ... da muss man mit so etwas rechnen.

Gruß
Marcus

[UweD]

Hallo nochmal.

Wenn immer das Erste stehen bleiben soll, dann so...

Code:

Sub Seiten_löschen()
    Dim SH As Integer
   
    Application.DisplayAlerts = False
    If Sheets.Count = 1 Then
        MsgBox "Nur noch ein Blatt übrig"
        Exit Sub
    End If
    For SH = ThisWorkbook.Sheets.Count To 2 Step -1
            Sheets(SH).Delete
    Next
    Application.DisplayAlerts = True
       
End Sub

LG UweD

[Steffl]

Hallo Uwe,

deine Abfrage

Code:

If Sheets.Count = 1

wäre hier unnötig, denn in dem Fall wird die For-Schleife gar nicht ausgeführt.

[schauan]

Hi Stefan,

eher nicht, denn dann kommt die Meldung nicht