title image


Smiley Re: z.B. so: b = Array(a(3), a(4), a(5), a(6), a(7)) - oT -
Hallo!



Um die Schreibarbeit wirst Du nicht drumrum kommen.

Egal, ob Du das mit Array oder mit einer For-next-Schleife realisierst.

Irgendwie musst Du dem Programm ja klar machen, was Du willst.

Und dabei gibt es nur zwei Alternativen:

1. einzeln aufzählen ( = Schreibarbeit ) oder

2. eine Spielregel definieren, nach der das Programm die Auswahl dann selbstständig treffen kann. Gibt es in Deinem Fall solche eine Spielregel?



Im übrigen: Was spricht denn so sehr gegen eine For-next-Schleife?



Etwa so:

Sub test()

Dim a(1 To 10)

Dim b()

'Schleife zum Füllen von a()

For x = 1 To 10

a(x) = x

Next

'Übertragungsschleife:

For x = 1 To 10

Select Case x

Case 3, 4, 5, 6

y = y + 1

ReDim Preserve b(1 To y)

b(y) = a(x)

Case Else

End Select

Next

MsgBox b(2)

End Sub



Gruß

Manes
Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: