Blatt löschen, wenn vorhanden ...
11.02.2006 08:12:22
Karschti
was muss ich jetzt machen? Das Blatt mit den Namen aus AJ5 soll gelöscht werden. Wenn es aber gar nicht vorhanden ist, dann kommt eine Fehlermeldung. Wie prüfe ich das? Und wenn das Blatt nicht da ist, soll er einfach weiter machen. Sicherlich irgendwas mit "If ..." aber wie?
Sub NeuesTabBlatt()
' Tabelle kopieren und neuen Namen von AJ5 aus dem aktiven Sheet geben
Application.DisplayAlerts = False
Sheets("AJ5").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Dim NewName As String
ActiveSheet.Copy After:=ActiveSheet
ActiveSheet.Name = ActiveSheet.Range("AJ5")
' So, jetzt zurück zu dem Eingabeblatt und Werte löschen
Sheets("Eingabe").Select
Range("D10:AH27").Select
Selection.ClearContents
Range("D10").Select
' Noch ein kleiner dezenter Hinweis für die mit den großen Augen
MsgBox "Ihre Liste wurde als neues Tabellenblatt gespeichert."
End Sub