Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1296to1300
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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?

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige