Abfrage ob Worksheets("Name") existiert

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


Excel-Version: 97
nach unten

Betrifft: Abfrage ob Worksheets("Name") existiert
von: Harald
Geschrieben am: 12.04.2002 - 17:50:54

damit ich nicht versuche ein neues Tabellenblatt zu erstellen, das bereits existiert. Wie kann ich so eine Abfrage durchführen?

DANKE


nach oben   nach unten

Re: Abfrage ob Worksheets("Name") existiert
von: Hajo
Geschrieben am: 12.04.2002 - 17:55:05

Hallo Harald

ich vermute mal Du meinst per VBA. Folgendes Stand mal in einem Forum

164. Vorhandensein von Register prüfen [VBA]
dafür gibt es verschiedene Möglichkeiten. Hier eine Sub:
Sub Registervorhanden()
Dim strBlattname$, intI%, blnVorhanden As Boolean
strBlattname = "Test"
blnVorhanden = False
For intI = 1 To Sheets.Count
If Sheets(intI).Name = strBlattname Then blnVorhanden = True
Next
If blnVorhanden = True Then MsgBox "Blatt existiert" Else MsgBox "Blatt existiert nicht"
End Sub

Man könnte das Ganze auch in eine Function auslagern, das würde aber auf das Gleiche hinauslaufen:
Sub Blatttest()
Dim strBlattname$
strBlattname = "Tabelle1"
MsgBox Blattvorhanden(strBlattname)
End Sub
Function Blattvorhanden(NameDesBlattes)
Dim blnVorhanden As Boolean, intI%
blnVorhanden = False
For intI = 1 To Sheets.Count
If Sheets(intI).Name = NameDesBlattes Then blnVorhanden = True
Next
If blnVorhanden = True Then Blattvorhanden = "Existiert" Else Blattvorhanden = "Existiert nicht"
End Function


Gruß Hajo

nach oben   nach unten

Re: Abfrage ob Worksheets("Name") existiert
von: MRR
Geschrieben am: 12.04.2002 - 17:55:39

Z.B. mit

HTH, Matthias

nach oben   nach unten

Danke euch beiden! (o.T.)
von: Harald
Geschrieben am: 12.04.2002 - 18:00:59


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Abfrage ob Worksheets("Name") existiert"