Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
884to888
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hat Zelle einen Namen

Hat Zelle einen Namen
06.07.2007 07:51:59
eres
Guten Morgen Excel-Freunde,
kann ich in VBA prüfen, ob eine ausgewählte Zelle einen Namen hat ?
also so etwas wie "if hasname(cells1,1)"
Vielen Dank im voraus für jede Hilfe.
Gruss ans SuperForum
erwin

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hat Zelle einen Namen
06.07.2007 07:59:00
Lukas
Hallo erwin
Vielleicht sowas:
[code] 

Function HasName(Verweis As String) As Boolean
On Error GoTo ende
Dim aName As String
aName = ActiveWorkbook.Names(RefersTo:=Verweis).Name
HasName = True
On Error GoTo 0
Exit Function
ende:
HasName = False
On Error GoTo 0
End Function




Sub asdf()
Dim x As Boolean
x = HasName("=Tabelle1!$A$2")
End Sub

[/code]
Freundliche Grüsse
Lukas

AW: Hat Zelle einen Namen
06.07.2007 08:02:13
eres
Vielen Dank Lukas,
natürlich so geht's.
Die UDF's vergesse ich immer wieder.
Gruss aus Köln
erwin

Anzeige
AW: Hat Zelle einen Namen
06.07.2007 08:04:08
Hajo_Zi
Hallo Erwin,
die Zelle könnte auch zu einem Bereich gehören der einen Nmaen hat.

Sub Name_ermitteln()
Dim nm As Name
For Each nm In ActiveWorkbook.Names
If Not Application.Intersect(ActiveCell, Range(nm.RefersToRange.Address)) Is Nothing Then
MsgBox nm.Name
Exit Sub
End If
Next
MsgBox "Aktive Zelle gehört zu keinem mit Namen versehenen Bereich"
End Sub


Von Martin Beck

Vielen Dank Hajo (o.T.), Prima Lösung
06.07.2007 08:06:14
eres
.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige