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