Anzeige
Archiv - Navigation
876to880
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
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mehrere Bereiche über For Next ansprechen

Mehrere Bereiche über For Next ansprechen
15.06.2007 09:00:28
Bernd
Liebe Excelfreunde,
ich möchte mehrere Bereiche über eine For Next Schleife ansprechen. Folgender Versuch führt aber nicht zum Ziel: Was mache ich falsch?
Auszug aus dem Code:
Dim Bereich1, Bereich2, Bereich3, Bereich4, 'usw... As Range
Dim i As Integer
Set Bereich1 = Range("A3:C10")
Set Bereich2 = Range("A12:C18")
Set Bereich3 = Range("A20:C31")
Set Bereich4 = Range("A33:C41")
'usw......
For i = 1 To 25
With Sheets(3).(Bereich & i")
.Select
End With
Next i
Vorab besten Dank!
Bernd

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

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Bereiche über For Next ansprechen
15.06.2007 09:08:39
Rudi
Hallo,
so geht das:
Dim Bereich(1 To 25) As Range
Dim i As Integer
With Sheets(3)
Set Bereich(1) = .Range("A3:C10")
Set Bereich(2) = .Range("A12:C18")
Set Bereich(3) = .Range("A20:C31")
Set Bereich(4) = .Range("A33:C41")
'usw......
End With
For i = 1 To 25
Bereich(i).Select
Next i
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Mehrere Bereiche über For Next ansprechen
15.06.2007 09:15:46
Bernd
Na sowas und plötzlich funktioniert es!
Vielen Dank Rudi

Rudi bringt es auf den Punkt... owT
15.06.2007 09:17:39
Renee

OT: Falls es dich betraf,...
20.06.2007 00:28:00
Luc:-?
...Bernd,
hier noch die Antwort.
Gruß Luc :-?
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige