Bitte nochmal Feld-Hilfe
14.06.2004 21:56:27
NE
büdde büdde nochmal Hilfe zum bestehenden Array manipulieren,
ich krieg's nich auf die Reihe ...
Franz [FP] aus dem Salzkammergut hatte mir schonmal einen
hübschen Code gegeben, ein gegebenes Array nach jedem 3. Element
um einen Nullwert zu erweitern.
Klappt prima, ich dachte ja nun damit kann ich weiterbasteln, kann ich aber
nich, zu dusselig ...
Öhm, mal simuliert siehe untigem Code, der für arr1() als auch arr2()
in allen Elementen 0 liefert, suche ich für arr2() dieses Ergebnis,
arr2=(0,0,1,0,0,2,0,0,3,0,0,4,0,0,5 ...usw)
leider liefert mir arr2 durchweg Nullerz
Danke Nancy
--
Sub confused()
Dim x%, i#, arr1, arr2#()
Dim intC1 As Integer
Dim intC2 As Integer
arr1 = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
ReDim arr2(UBound(arr1) + Fix(UBound(arr1) / 2) + 1)
For x = LBound(arr2) To UBound(arr2) Step 3
i = i + 1
arr2(x) = i
Next
For intC1 = 0 To UBound(arr1)
If (intC2 + 1) Mod 3 = 0 Then intC2 = intC2 + 1
arr2(intC2) = arr1(intC1)
intC2 = intC2 + 1
Next
End
Sub