löschen von Tabellenblätter
Tabellenblätter
Ich benötige Eure Hilfe.
Ich möchte folgendes Marko "ausbauen":
Sub Loeschen_Tabellen()
Dim wks As Worksheet
Application.DisplayAlerts = False
For Each wks In ThisWorkbook.Worksheets
Select Case wks.Name
Case "Hauptseite", "Aktennotiz", "Revisionsrapporte", "Zusammenfassung"
Case Else: wks.Delete
End Select
Next
Application.DisplayAlerts = True
End Sub
Nun, sollte noch eine Regel rein.
In jedem der zu löschenden Sheets ist in der Zelle "H3" ein Datum. Es sollten nur Sheets die älter als 540 Tage sind, gelöscht werden. Es werden etwa 180 Sheets sein.
Wie könnte ich da vorgehen. Hat jemand eine Idee?
Besten Dank schon im Voraus.
Gruss Roger