Existiert Tabellenblatt schon ?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Existiert Tabellenblatt schon ?
von: Horst
Geschrieben am: 06.07.2002 - 13:32:20

Hallo ,
ich habe eine (kleine) Anfängerfrage.

Wie kann ich mit VBA abfragen ob eine bestimmtes Tabellenblatt schon existiert?

Danke im Voraus

Horst


nach oben   nach unten

So...
von: Ramses
Geschrieben am: 06.07.2002 - 13:44:58

Hallo Horst,

... geht das:


Sub Table_Check()
Dim Tn as String
Dim i as Integer
'Achtung: Auf Gross und Kleinschreibung achten
Tn = "Dein Tabellenblattname"
For i = 1 to Worksheets.Count
If Worksheets(i).Name = Tn Then Msgbox "Blatt existiert
Next i
End Sub

Gruss Rainer

nach oben   nach unten

Re: So...
von: Horst
Geschrieben am: 06.07.2002 - 14:03:10


Danke, es funktioniert so.

Gruß Horst


nach oben   nach unten

Re: So...
von: MRR
Geschrieben am: 06.07.2002 - 14:38:40

Alternativvorschlag:

Sub Table_Check1()
Dim tmp
On Error Resume Next
tmp = Worksheets("Tabellenblattname").Range("A1")
If Err.Number = 0 Then
    MsgBox "Blatt existiert"
Else
    MsgBox "Blatt existiert nicht!"
End If
End Sub

Matthias
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Existiert Tabellenblatt schon ?"