Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Alle Zellennamen auf aktivem Tabellenblatt

Alle Zellennamen auf aktivem Tabellenblatt
02.12.2008 13:10:00
Martin
Hallo,
ich suche nach einer Lösung, die mir alle Zellennamen des aktuellen Tabellenblattes wiedergibt. Leider habe ich nur eine Möglichkeit gefunden alle Zellennamen der gesamten Arbeitsmappe nennen zu lassen. Einfach "ActiveWorkbook" durch "ActiveWorksheet" zu ersetzen klappt leider nicht.

Sub Zellennamen_in_Tabelle_ermitteln()
Dim nm As Name
For Each nm In ActiveWorkbook.Names
MsgBox nm.Name
Next
End Sub


Wer hat eine Idee?
Viele Grüße
Martin

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

Betreff
Datum
Anwender
Anzeige
AW: Alle Zellennamen auf aktivem Tabellenblatt
02.12.2008 13:28:10
Armin
Hallo Martin,
Deine Skript kann nicht gehen.
Nimm:

Sub Zellennamen_in_Tabelle_ermitteln()
Dim nm As Worksheet
For Each nm In ActiveWorkbook.Worksheets
MsgBox nm.Name
Next
End Sub


Gruß Armin

AW: Alle Zellennamen auf aktivem Tabellenblatt
02.12.2008 13:59:42
Martin
Hallo Armin,
vielen Dank für Deine Antwort. Ich glaube, dass Du mich falsch verstanden hast: Ich suche nicht die Namen der Tabellenblätter in der Arbeitsmappe sondern alle benannte Zellenbereiche auf dem aktiven Tabellenblatt. Der Code von mir funktioniert, allerdings werden alle benannten Zellenbereiche der gesamten Arbeitsmappe genannt.
Viele Grüße
Martin
Anzeige
AW: Alle Zellennamen auf aktivem Tabellenblatt
02.12.2008 14:06:00
Reinhard
Hi Martin,

Sub Zellennamen_in_Tabelle_ermitteln()
Dim nm As Name
For Each nm In ActiveWorkbook.Names
If nm.RefersTo Like "=" & ActiveSheet.Name & "*" Then MsgBox nm.Name
Next
End Sub


Gruß
Reinhard

Danke, das ist die Lösung!
02.12.2008 14:09:18
Martin
Hallo Reinhard,
vielen Dank, es funktioniert bestens!
Viele Grüße
Martin

322 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige