DANKE
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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen