DANKE
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