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

DIM und SET in einer Schleife??

DIM und SET in einer Schleife?
18.10.2006 12:23:02
Martin
Hallo liebes Forum,
ich habe in einer Tabelle mehrere benannte Bereiche, die sich im Namen nur um eine laufende Nummer unterscheiden (z.B.:Bereich_1, Bereich_2,...). Diese Bereiche möchte in VBA weiterverwenden. Die maximale Laufnummer ist bekannt. Gibt es eine Möglichkeit die Objektvariablen über eine Schleife zu initialisieren und dann auch zu benennen? Ich stelle mit sowas vor:
for i = 1 to höchster_Index
DIM Bereich_i As Range
Set Bereich_i = Worksheets(1).Range("Bereich_i")
Next
Natürlich klappt das nicht, schon allein weil
"Bereich_" & CStr(i)
viele lustige Sonderzeichen hat, die DIM nicht verträgt.
Wer weiß Rat?
Danke
Martin

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

Betreff
Datum
Anwender
Anzeige
AW: DIM und SET in einer Schleife?
18.10.2006 12:32:56
Uduuh
Hallo,
mit nem Datenfeld geht's.

Sub tt()
Dim bereich(1 To 3) As Range
Dim i As Integer
For i = 1 To 3
Set bereich(i) = Sheets(1).Range("bereich_" & i)
Next
End Sub

Gruß aus’m Pott
Udo

Sehr elegant!
18.10.2006 13:18:49
Martin
Danke schön!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige