Tabellenname suchen und löschen
22.04.2007 14:39:54
Universal
dieser Code wird ausgeführt, wenn ich in einer Userform auf "Suchen" klicke. Er überprüft, ob das Tabellenblatt "Suchergebnis" schon vorhanden ist. Falls ja, soll er fragen, ob es gelöscht werden soll. Soweit funktioniert es. Nur, das Löschen klappt nicht. Excel selektiert das Tabellenblatt "Suchergebnis" - löscht es aber nicht. Kann mir jemand helfen?
Dim Tabellenblatt As Worksheet
On Error Resume Next
Set Tabellenblatt = Worksheets("Suchergebnis")
If Err.Number = 0 Then
Err.Clear
Frage = MsgBox("Es existiert bereits ein Suchergebnis. Bitte beenden Sie dieses, bevor Sie _
eine neue Suche starten." & Chr(10) _
& "Soll das Suchergebnis jetzt beendet werden?", vbQuestion + vbYesNo + _
vbDefaultButton2, "Suchergebnis")
If Frage = vbYes Then
Application.DisplayAlerts = False
Worksheets("Suchergebnis").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Else
Exit Sub
End If
End If
vielen Dank und Gruß
Uni
Anzeige