betsehnder Name eines Tabellenblattes
03.07.2003 11:29:47
Christian
Function Nameexists(blattnmame As String) As Boolean
Nameexists = False
For Each Worksheet In ActiveWorkbook.Worksheets
If blattname = name Then
Nameexists = True
End If
Next Worksheet
End Function