Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
280to284
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
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Liste der vergebenen Namen ausdrucken

Liste der vergebenen Namen ausdrucken
15.07.2003 17:42:36
Michael
hallo Zusammen,
ich habe für diverse Bereiche und Formeln Namen vergeben.
Gibt es eine Möglichkeit, eine Liste auszudrucken, in der sowohl die Namen als auch die Zuordnungen vorhanden sind ?
Vorab vielen Dank!
Michael

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

Betreff
Datum
Anwender
Anzeige
AW: Liste der vergebenen Namen ausdrucken
15.07.2003 19:45:04
N. Davidheimann
Hallo Michael,
Einfügen >> Name >> Einfügen >> Liste einfügen und dann ausdrucken.
Gruß
Norbert

AW: Liste der vergebenen Namen ausdrucken
15.07.2003 17:57:05
ChrisL
Hi Michael
Versuchs mal hiermit (Liste in Spalte A + B)...
Option Explicit

Sub Namen_listen()
Dim i As Integer
For i = 1 To Names.Count
Cells(i, 1) = Names(i).Name
Cells(i, 2) = Names(i).RefersToRange.Address
Next i
End Sub

Gruss
Chris

Danke, aber...
15.07.2003 18:08:39
Michael
Hallo Chris,
Für die Bereiche scheint es zu funktionieren,
aber bei dem ersten Namen, den ich für eine Formel vergeben habe stürzt es ab.
Gruss Michael

Anzeige
AW: Danke, aber...
15.07.2003 18:14:49
ChrisL
Hi Michael
Ein bischen plump, aber vielleicht funktionierts...
Option Explicit

Sub Namen_listen()
Dim i As Integer
On Error Resume Next
For i = 1 To Names.Count
Cells(i, 1) = Names(i).Name
Cells(i, 2) = Names(i).RefersToRange.Address
If Err > 0 Then
Err.Clear
Cells(i, 2) = Names(i).Value
Cells(i, 2) = "'" & Cells(i, 2).Formula
End If
Next i
End Sub

Gruss
Chris

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige