Mit NAME meinst Du LOKALE BEREICHSNAME !?!
11.11.2011 13:40:26
NoNet
Hallo Markus,
die bisher geposteten Vorschläge prüfen, ob der TEXT "DatenA" im Tabellenblatt existiert, ich vermute jedoch, dass Du den definierten (Bereichs-)NAMEN meinst (also den, den man im Namensfeld oberhalb der Zelle A1 eingeben oder per Tastenkombination Strg+F3 definieren kann) !?!
Das kann man mit folgendem Code prüfen :
Sub LOKALEN_Namen_Finden()
'Sucht einen LOKAL definierten Namen im aktuelle Tabellenblatt
Dim objName As Object, strName As String
strName = "DatenA" 'der zu suchende (definierte) NAME
If ActiveSheet.Names.Count > 0 Then
On Error Resume Next
Set objName = ActiveSheet.Names(strName)
If objName Is Nothing Then
MsgBox "Bereichsname '" & strName & "' existiert im aktuellen Blatt nicht !"
Else
MsgBox "Bereichsname '" & strName & _
"' ist im aktuellen Blatt definiert :!" & vbLf & vbLf & _
ActiveSheet.Names(strName).RefersToLocal, vbOKOnly, "Name gefunden"
End If
Else
MsgBox "Das aktuelle Tabellenblatt enthält keine lokalen Namen !"
End If
Set objName = Nothing
End Sub
Das Makro überprüft jedoch nur die LOKAL definierten Namen, also die, die im aktuellen Tabellenblatt gültig sind (so habe ich das verstanden) und nicht die GLOBALEN Namen der gesamten Mappe !
Gruß, NoNet