löschen wenn Wort enthalten
13.02.2008 12:20:58
FM
folgendes Problem habe ich. Ich habe ein größeres Skript bei dem mit der Zeit eine Backup Tabellenblätter entstehen werden. Diese möchte ich nun löschen. Die Namen der Backup Tabellenblätter sind immer:
"Backup" & " " & Format(Date, "dd.mm.yy") & ", " & Format(Time, "hh.mm")
sprich immer einzigartig. Nun würde ich gerne DIE Blätter löschen die den Namen "Backup" am Anfang enthalten...
Sub deleteBU()
Application.DisplayAlerts = False
Dim i As Integer
For i = 1 To ActiveWorkbook.Sheets.Count Step 1
If Sheets(i).Name = "Backup" Then ' und hier bräuchte ich einen Platzhalter, damit egal ist was danach noch kommt...
Sheets(i).Delete
End If
Next i
Application.DisplayAlerts = True
Danke im voraus
FM