Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Falls Zellname existiert, dann...

Forumthread: Falls Zellname existiert, dann...

Falls Zellname existiert, dann...
28.01.2013 15:57:26
Damian
Ich hänge an einem VBA- Problem.
Und zwar möchte ich abfragen, ob eine Zelle mit dem Namen (nicht dem Wert) "xyz" existiert
also sowas wie der fette Text hier:
Range("A1").Name.Name = "xyz"
If Exist(Range(xyz)) = True Then MsgBox "Hurra"
On Error GoTo würde ich gerne übergehen. Gibt es da einen anderen, simpleren Weg?

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Falls Zellname existiert, dann...
28.01.2013 16:13:16
Rudi
Hallo,
Sub aaaa()
Dim n As Name, bFound As Boolean, w As Worksheet
Const cn As String = "xyz"
For Each n In Names
If n.Name = cn Then
MsgBox "Hurra"
bFound = True
Exit For
End If
Next
For Each w In Worksheets
For Each n In w.Names
If Right(n.Name, Len(cn)) = cn Then
MsgBox "Hurra"
bFound = True
Exit For
End If
Next
Next
If Not bFound Then MsgBox "Nicht da"
End Sub

Gruß
Rudi

Anzeige
AW: Falls Zellname existiert, dann...
28.01.2013 16:17:27
guentherh
Hallo Damian,
Du musst dazu in der Names-Auflistung nachsehen, ob es den Namen gibt.
Gefunden =false
for each nam in activeworkbook.names
if nam.name="ABC" then Gefunden =true
next
if Gefunden then
msgbox "Hurra"
else
msgbox "hamm'er nich!"
endif
Gruß,
Günther
P.S. ungetestet und ohne DIM's

Anzeige
danke güntherh, danke rudi
28.01.2013 16:23:17
Damian
güntherh's variante is dann doch ein wenig schlanker, vielen Dank :))

danke güntherh, danke rudi
28.01.2013 16:41:20
Damian
güntherh's variante is dann doch ein wenig schlanker, vielen Dank :))

die allerdings ....
28.01.2013 23:06:11
Rudi
Hallo,
... nur Namen berücksichtigt, die nicht spezifisch auf eine Tabelle bezogen sind.
Gruß
Rudi
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige