Thema Datum  Von Nutzer Rating
Antwort
Rot verschiedene bereiche mit einer for... next schleife auswählen
14.05.2013 20:14:00 macgyver1976
NotSolved
15.05.2013 09:30:20 kim
NotSolved
15.05.2013 14:12:42 macgyver1976
NotSolved
15.05.2013 09:32:45 kim
NotSolved
15.05.2013 14:26:33 kim
NotSolved
15.05.2013 14:48:37 macgyver1976
NotSolved

Ansicht des Beitrags:
Von:
macgyver1976
Datum:
14.05.2013 20:14:00
Views:
2287
Rating: Antwort:
  Ja
Thema:
verschiedene bereiche mit einer for... next schleife auswählen

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot verschiedene bereiche mit einer for... next schleife auswählen
14.05.2013 20:14:00 macgyver1976
NotSolved
15.05.2013 09:30:20 kim
NotSolved
15.05.2013 14:12:42 macgyver1976
NotSolved
15.05.2013 09:32:45 kim
NotSolved
15.05.2013 14:26:33 kim
NotSolved
15.05.2013 14:48:37 macgyver1976
NotSolved