Hallo Zusammen
Ich bin absoluter Beginner in VBA. Ich lese ein array von einem excel sheet ein:
Dim ar as variant
Ar = Range("B4:P4").Value
Nun möchte ich dass jeder Wert des Arrays mit dem nachfolgenden Wert dividiert wird (zb. Zelle B4/C4 dann C4/D4 etc). Am Schluss sollten dann von den neuen (dividierten) Werten der Durchschnitt genommen werden. Wie kann ich sowas machen? Hab es mit for loops probiert komme aber nicht weiter:
dim n as integer
dim i as integer
dim averageofnewAr
n = Application.Count(Ar)
for i = 1 to n-1
newAr(i)= Ar(i) / Ar(i+1)
next i
averageofnewAr= application.average(newAr)
Sheets("blatt1").Range("B8").Value = averageofnewAr
Vielen Dank für gelegentliche Hilfe.
Grüsse
Christian
|