wie kann ich per makro alle vorhandenen Blätter bis auf Tabelle 1 löschen?
lg
Option Explicit
Sub Sabine()
Dim LoI As Long
Application.DisplayAlerts = False
For LoI = Worksheets.Count To 1 Step -1
If Worksheets(LoI).Name "Tabelle1" Then Worksheets(LoI).Delete
Next LoI
Application.DisplayAlerts = True
End Sub
Sub alle_loeschen()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name "Tabelle1" Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub
mfG
Ingo Christiansen
Sub Loeschen() 'Matthias L
Dim X As Long
Application.DisplayAlerts = False
For X = Sheets.Count To 1 Step -1
If Sheets(X).Name "Tabelle1" Then Sheets(X).Delete
Next
Application.DisplayAlerts = True
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen