ich habe folgende Frage:
Ich will in VBA prüfen, ob eine best. Zelle mit best. Namen existiert?
Danke und viele Grüße aus Frankfurt
Thomas
Sub Namen_Suchen()
erstellt von Hajo.Ziplies@web.de 27.04.03
Dim ObBereich As Object
Dim StName As String
StName = InputBox("Bitte gesuchten Namen eingeben!!")
For Each ObBereich In ActiveWorkbook.Names
If ObBereich.Name = StName Then
MsgBox "Name schon vorhanden"
Exit Sub
End If
Next
End Sub
Option Explicit
Sub t()
On Error Resume Next
MsgBox IsObject(Range("TEST"))
End Sub