ich habe folgendes Problem: Ich möchte prüfen ob mehrere sheets in der Datei vorhanden sind. Wenn ja, dann sollen diese gelöscht werden. Mit einem Tabllenblatt funktioniert das auch gut aber die Datei soll nach mehreren bestimmten Datein such z.B. auch noch: "Stress-Deckblatt (2)"
Hier der Code:
Sub Sheets_control()
Application.DisplayAlerts = False
vorhanden = False
For x = 1 To Sheets.Count
If Sheets(x).Name = "Stress-Deckblatt" Then
Sheets(x).Select
vorhanden = True
Exit For
End If
Next x
If vorhanden Then
Sheets("Stress-Deckblatt").Delete
End If
Application.DisplayAlerts = True
End Sub
Vielen Dank für Eure Hilfe im VorausGruß
Matthias