13.01.2020, 13:50
13.01.2020, 13:58
Hallo,
Tabellenblätter markieren (Shift-Taste)und rechte Maustaste drücken, dann auf "lÖSCHEN"
Gruß
Marcus
Tabellenblätter markieren (Shift-Taste)und rechte Maustaste drücken, dann auf "lÖSCHEN"
Gruß
Marcus
13.01.2020, 14:01
Hallo
z.B. so
LG UweD
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
13.01.2020, 14:16
Bei diesem Löschbefehl werden auch die Daten auf Seite 1 gelöscht!
13.01.2020, 14:19
Hallo,
das Du nach einem Makro fragst habe ich irgendwie nicht lesen können. Du musst natürlich:
das Du nach einem Makro fragst habe ich irgendwie nicht lesen können. Du musst natürlich:
Zitat:umbenennen. Wir wissen nicht wie dein erstes Blatt heißt. Knappe Anleitung ... da muss man mit so etwas rechnen.Code:If SH.Name <> "TabelleBleibt" Then
Gruß
Marcus
13.01.2020, 15:35
Hallo nochmal.
Wenn immer das Erste stehen bleiben soll, dann so...
LG UweD
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
13.01.2020, 15:40
Hallo Uwe,
deine Abfrage
wäre hier unnötig, denn in dem Fall wird die For-Schleife gar nicht ausgeführt.
deine Abfrage
Code:
If Sheets.Count = 1
wäre hier unnötig, denn in dem Fall wird die For-Schleife gar nicht ausgeführt.
16.01.2020, 18:05
Hi Stefan,
eher nicht, denn dann kommt die Meldung nicht
eher nicht, denn dann kommt die Meldung nicht