Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1012to1016
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

Umgang mit names.add

Umgang mit names.add
26.09.2008 12:24:00
Novak
Hallo, ich möchte herausfinden, welche Zellen in einer Tabelle einen Namen haben.
Etwa so:
dim r as range
for each r in activesheet.usedrange
If r.name is not nothing then
....
end if
next r
So funktionierts aber nicht.
Danke für Hinweise

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Namen - Liste einfügen
26.09.2008 13:08:00
Beate
Hallo Hans,
Sub Namensliste()
    Sheets.Add.Name = "Namensliste"
    Range("A1").ListNames
    Columns("A:B").Columns.AutoFit
End Sub


Gruß,
Beate
AW: Namen - Liste einfügen
26.09.2008 13:34:11
Novak
Danke,
ListNames habe ich auch gefunden, ich will die Namen aber in ein Array einlesen. Das wird wohl nicht funktionieren? Wenn das nicht funktioniert, muß ich wohl eine temporäre Tabelle erstellen, die Namen in Zellen einlesen, weiterverwenden und danach die temporäre Tabelle wieder löschen. Ein gewaltiger Aufwand!
Danke für Ihren Tipp!
Gruß, gröbi.
Anzeige
AW: Namen - Liste einfügen (Array geht doch)
26.09.2008 16:22:36
firmus
Hallo Hans,
versuch mal das. Grob getestet.

Sub Namensliste()
Dim x, myArrMax As Long
Dim MyArray(99, 1) As String
myArrMax = 99
For x = 1 To ActiveWorkbook.Names.Count
MyArray(x - 1, 0) = ActiveWorkbook.Names(x).Name
MyArray(x - 1, 1) = ActiveWorkbook.Names(x).RefersTo
Next x
End Sub


Gruß
Firmus

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige