Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
760to764
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
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

zellenNamenAuslesen

zellenNamenAuslesen
11.05.2006 11:42:18
michael
Hallo wünsche schönen Tag
meine Bitte
habe etliche zellen mit NAMEN hinterlegt
dzt.rund 50 kann ich die irgendwie
in eine Spalte auslesen Vba?
Freundlicher Gruss
michael aus der Steiermark

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zellenNamenAuslesen
11.05.2006 11:48:47
Reinhard
Hi Michael,

Option Explicit
Sub tt()
Dim n As Name, zei As Long
For Each n In ThisWorkbook.Names
zei = zei + 1
Cells(zei, 1) = n.Name
Cells(zei, 2) = n
Next n
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
AW: zellenNamenAuslesen
11.05.2006 11:49:06
u_
Hallo,

Sub namenlesen()
Dim n As Name
For Each n In Names
With Sheets(2).Cells(65536, 1).End(xlUp)
.Offset(1, 0) = n.Name
.Offset(1, 1) = "'" & n.RefersToLocal
End With
Next
End Sub
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
Anzeige
AW: zellenNamenAuslesen
11.05.2006 12:23:55
michael
Vielen Dank beide Funktionieren !
kleine frage noch
K8000er01 ='8000'!$D$12
K8000er02 ='8000'!$E$19
K8000er03 ='8000'!$E$24
kann ich auch den weg umkehren ?
jubel01 ='8000'!$D$12
jubel02 ='8000'!$E$19
jubel03 ='8000'!$E$24
also den jeweiligen Zellennamen umtaufen?
Danke michael
AW: zellenNamenAuslesen
12.05.2006 10:41:32
Reinhard
Hi Michael,
probiers mal so:
Sub tt()
Dim n As Name, zei As Long
For Each n In ThisWorkbook.Names
zei = zei + 1
Cells(zei, 1) = n.Name
Cells(zei, 2) = n
Next n
For zei = 1 To Range("A65536").End(xlUp).Row
ActiveWorkbook.Names(Cells(zei, 1).Text).Delete
ActiveWorkbook.Names.Add Name:="Jubel" & zei, RefersTo:=Cells(zei, 2).Text
Next zei
For Each n In ThisWorkbook.Names
zei = zei + 1
Cells(zei, 1) = n.Name
Cells(zei, 2) = n
Next n
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: "Jubel"Danke fn.Super ...o.T
12.05.2006 11:53:25
michael
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige