Habe folgende Frage:
Per Makro sollen allen Tabellenblätter gelöscht werden, bis auf das aktivierte.
Wie macht man soetwas ?
Gruß
Birgit
Sub blätter_löschen()
Dim sh As Worksheet, actSh As Worksheet
Set actSh = ActiveSheet
For Each sh In Worksheets
If Not sh.Name = actSh.Name Then sh.Delete
Next
End Sub
Public Sub lösch()
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Sheets
If ws.Name <> ActiveSheet.Name Then
ws.Delete
End If
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