suche einen Makrobefehl, der "Tabelle1" löscht. Wenn es "Tabelle1" nicht gibt, soll dieser Befehl einfach übergangen werden.
Besten Dank im voraus
von
Karsten
Sub TabAuswahl()
Dim Sh As Worksheet
Dim sName$
sName = InputBox("Bitte Tabellenname auswählen!")
For Each Sh In Worksheets
If InStr(Sh.Name, sName) > 0 Then
Sh.Select
Exit Sub
End If
Next Sh
Beep
MsgBox "Kein Blatt gefunden!"
End Sub
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Tabelle2").Delete
On Error GoTo 0
Application.DisplayAlerts = True