servus leute, da ich mich mit vba nicht so gut auskenne und bis jetzt nur mit vb gearbeitet habe stellt sich für mich folgendes problem: ich würde gern für ein bestimmte variable n eine bestimmte anzahl an bereichen auswählen/markieren können. da die variable n ziemlich groß sein kann wird auch die anzahl der bereiche ziemlich groß und deshalb muss ich eine schleife verwenden. in dem beispiel für 3 bereiche ohne schleife funktioniert das noch. Aber wenn ich versuche die drei bereiche mittels einer schleife zu markieren dann funktioniert das nicht. In den unteren 2 beispielen, hab ich zuerst die Prozedur ohne schleife und dann die mit schleife kopiert. kann mir bitte jemand sagen ob man das so schreiben kann set r(i)= range(cells(4i+1,4k+1),cells(4i+3,4k+3)) , wobei i und k Zählvariablen sind( k fängt bei n an und i fängt bei null an ).
Sub test()
dim r1,r2,r3 As Range
dim abc As Range
set r1=range(cells(1,9),Cells(3,11))
set r2=range(cells(5,9),cells(7,11))
set r3=range(cells(9,9),cells(11,11))
set abc=union(r1,r2,r3)
abc.select
End Sub
--------------------------
Sub test1()
dim n as integer
n=2
dim k,i as integer
dim abc as Range
for i=0 to n
dim r(i) as Range
next
for k=n to i
for i=0 to n
set r(i)= range(cells(4i+1,4k+1),cells(4i+3,4k+3))
Next
Next
for i=0 to n
set abc=union(r(i))
next
abc.select
End sub
|