Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
136to140
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
136to140
136to140
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Auf Bereichsnamen mit VBA zugreifen

Auf Bereichsnamen mit VBA zugreifen
18.07.2002 10:06:18
Lukas
Hallo!
Habe den Zellen A1:B20 den Namen "VorNachname" zugeordnet. Wie kann ich nun in VBA auf die einzelnen Zellwerte zugreifen? Wie finde ich heraus, welche Namen überhaupt definiert wurden? Wie finde ich heraus, wie groß (Anzahl Zeilen und Spalten) diese Namensbereiche haben?

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Auf Bereichsnamen mit VBA zugreifen
18.07.2002 10:35:49
Hans W. Herber
Hallo Lukas,

wie folgt:

hans

Re: Auf Bereichsnamen mit VBA zugreifen
18.07.2002 10:37:13
MAlexander
Moin, Lukas.

Was jetzt folgt, sind nur Denkanstöße:

1. Namen herausfinden
Sub ListAllNames(InBereich)

Dim nms As Names
Dim x As Long
Dim ZielZeile As Long
Dim ZielSpalte As Byte

ZielZeile = InBereich.Row
ZielSpalte = InBereich.Column

Set nms = ActiveWorkbook.Names

With Worksheets(InBereich.Parent.Name)

For x = 1 To nms.Count
.Cells(ZielZeile, ZielSpalte).Value = nms(x).Name
.Cells(ZielZeile, ZielSpalte + 1).Value = Mid(nms(x).RefersTo, 2)
ZielZeile = ZielZeile + 1
Next

End With
End Sub

2. Zugriff auf Bereiche (A1:B20 heißt "HugoHugo")

dim Hugo as range
dim Zelle as range
dim Wert as string

set Hugo = range("HugoHugo")

for each Zelle in Hugo ' Das ist ja fast schon Biologie

Zelle.value = "Krebs"
wert = Zelle.value

next

3. Anzahl Spalten: Hugo.columns.count
4. Anzahl Zeilen: Hugo.rows.count

MAlexander

Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige