Möchte gern einen Löschvorgang einer Mustertabelle vornehmen. Mich stört jedoch der Hinweis .. von MS Excel.
Möchte nur mit der MSG Box arbeiten.
Was muß ich ändern?
Sub Muster_Delete()
If SheetExists("Muster") = True Then
MsgBox ("Muster wird gelöscht!")
Worksheets("Muster").Delete
Else
MsgBox ("Muster wurde nicht gefunden!")
End If
End Sub
Public Function SheetExists(strName As String) As Boolean
On Error Resume Next
SheetExists = Not Worksheets(strName) Is Nothing
End Function
Grüße Andreas