Registriert seit: 13.01.2020
Version(en): 2010
Ich möchte in der Tabelle 2004 alle Seiten bis auf Seite 1 löschen. Wie geht das?
Danke für Hilfe
Registriert seit: 11.04.2014
Version(en): Office 2003 - Office 2007 - Office 365
Hallo,
Tabellenblätter markieren (Shift-Taste)und rechte Maustaste drücken, dann auf "lÖSCHEN"
Gruß
Marcus
Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
Registriert seit: 05.09.2019
Version(en): Office 365
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
Registriert seit: 13.01.2020
Version(en): 2010
Bei diesem Löschbefehl werden auch die Daten auf Seite 1 gelöscht!
Registriert seit: 11.04.2014
Version(en): Office 2003 - Office 2007 - Office 365
Hallo,
das Du nach einem Makro fragst habe ich irgendwie nicht lesen können. Du musst natürlich:
Zitat: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
Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
Registriert seit: 05.09.2019
Version(en): Office 365
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
Registriert seit: 11.04.2014
Version(en): Office 2007
Hallo Uwe,
deine Abfrage
wäre hier unnötig, denn in dem Fall wird die For-Schleife gar nicht ausgeführt.
Gruß Stefan
Win 10 / Office 2016
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hi Stefan,
eher nicht, denn dann kommt die Meldung nicht
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)