Blatt mit bestimmtem Namen hinzufügen

05/03/2008 - 10:15 von Alexander Wolff | Report spam
Hallo! Als Wenig-VBA'ler habe ich eine Frage:

Ich möchte, falls noch nicht vorhanden,
ein Tabellenblatt mit dem Namen "XY" hinzufügen. (xl2000)

Pseudocode:
:
Falls Blatt "XY" nicht existiert, füge es neu ein.
:

Gewünschte einzeilige Anweisung, die nicht funktioniert:

If Sheets("XY") = Empty Then Sheets.Add.Name = "XY"
oder
If Sheets("XY") Is Empty Then Sheets.Add.Name = "XY"
oder
If Sheets("XY") = NoExists Then Sheets.Add.Name = "XY"

Ich tue mich mit Objekten etwas schwer. Vielen Dank für Antworten!

PS: Es kann doch nicht sein, dass
http://groups.google.de/group/micro...beba3ca61c
alles dazu ist. Diese d. Fehlerbehandlungen!
Moin+Gruss Alexander - MVP für MS Excel - www.xxcl.de - mso2000sp3 --7-2
 

Lesen sie die antworten

#1 Alexander Wolff
05/03/2008 - 10:22 | Warnen spam
Relativ kurz scheint folgendes zu gehen:

DisplayAlerts = False
On Error Resume Next: Sheets("XY").Delete: On Error GoTo 0
DisplayAlerts = True
Sheets.Add.Name = "XY"

Trotzdem: Die doppelte Vorkehrung DisplayAlerts/On Error ist doch
wahnwitzig!
Moin+Gruss Alexander - MVP für MS Excel - www.xxcl.de - mso2000sp3 --7-2

Ähnliche fragen