Office: Prüfen ob Name existiert

Hi,

wie kann ich in vba prüfen ob ein Name (Excel2K3: Einfügen - Namen ) existiert?

Speziell geht es mir um den Druckbereich. Den Range kann ich ja für das aktice Sheet mit ActiveSheet.Names("Print_Area") auslesen. Wie fange ich den Fehler ab wenn es aber keinen gibt?
Danke und Gruß

knacko

:)

 

Hi,

z.B. so.

Sub nn()
Dim objName As Name, bNameExist As Boolean

For Each objName In ThisWorkbook.Names
If objName.Name = ActiveSheet.Name & "!Print_Area" Then
bNameExist = True
Exit For
End If
Next

MsgBox "Druckbereich gibt's" & IIf(bNameExist, "!", " nicht!")
End Sub

 

Hi,

super, danke dir, werde das so anwenden.

Gruß

 

Hallo,

ein Problem taucht aber nun auf.

Wenn der Tabellennamen keine Leerzeichen hat, also z.b. "test1", klappt das so.
Wenn der Tabellenname aber Leerzeichen aufweist, z.b "test 1", dann klappt es nicht mehr. Grund ist wohl das objName dann so lautet:
'test 1'!Print_Area und das ist ungleich test 1!Print_Area.


Wie umgehe ich das denn?

Gruß

 

Hallo Knacko,

klappt

Code:

Grüße
EarlFred

 

Hi,

naja, jetzt klappt es aber umgekehrt nicht mehr.

Muss ich denn noch eine IF Schleife einbauen und prüfen ob im Namen ein ' vorkommt oder geht das einfacher?

Gruß

 

Hallo knacko,

Code:

wäre noch eine Versuch wert. Das sollte dann in beiden Fällen klappen.

Grüße
EarlFred

 

Hi,

klappt, danke dir,

gruß
knacko