Sheets mit ähnlichen Namen finden und löschen
12.05.2009 11:17:49
Jörg
ich komme im Moment einfach nicht weiter und hoffe das ihr mir evtl. etwas klarheit schaffen könnt.
Ich möchte gerne alle in einer Excel-Datei befindlichen Sheets auf den Namen einer Checkbox überprüfen
und dann diese löschen. Dabei kann es vorkammen , das die mehrere Sheet vorhanden sind die nur einen Index im Sheetnamen haben (z.B. file_1, file_2 usw.)
Mein Script durchläuft das gnaze aber immer nur einmal und läst anderen Sheets einfach liegen.
For Each oBcb In UserForm1.MultiPage1.Pages(1).BGV.Controls
blnFound_del = False
fbfile = oBcb.Caption
For Each objWks In Worksheets
If InStr(objWks.Name, fbfile) Then blnFound_del = True: Exit For ' _
objWks.Name= fbfile Then blnFound_del = True: Exit For
Next
If blnFound_del Then 'wenn die Tabelle nicht vorhanden, dann _
weitermachen
Application.DisplayAlerts = False
On Error Resume Next
ActiveWorkbook.Worksheets(objWks.Name).Delete
ActiveWorkbook.Worksheets("Startseite").Activate
End If
Next
Application.DisplayAlerts = True
oBcb.Value = False
End If 'blnFound_del
'End If 'OBJWKS
Next oBcb
Ich weiss nicht wie und wo ich die Schleife am besten platzieren muss.
Gruß Jörg
Anzeige