Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Blatt löschen, wenn vorhanden ...

Forumthread: Blatt löschen, wenn vorhanden ...

Blatt löschen, wenn vorhanden ...
11.02.2006 08:12:22
Karschti
Hi Leute,
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

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blatt löschen, wenn vorhanden ...
11.02.2006 10:08:59
Josef
Hallo Karschti!
Probier mal so!
Sub NeuesTabBlatt()

' Tabelle kopieren und neuen Namen von AJ5 aus dem aktiven Sheet geben
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Sheets(Range("AJ5").Text).Delete
Err.Clear
On Error GoTo 0
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

With Sheets("Eingabe")
  .Activate
  .Range("D10:AH27").ClearContents
  .Range("D10").Select
End With

' Noch ein kleiner dezenter Hinweis für die mit den großen Augen
Application.ScreenUpdating = True
MsgBox "Ihre Liste wurde als neues Tabellenblatt gespeichert."

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Blatt löschen, wenn vorhanden ...
11.02.2006 10:27:52
Karschti
Danke Sepp, Danke! Genau das was ich gesucht habe. Gruß Karschti
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige