Clever-Excel-Forum

Seiten: 1 2

Hi,

Zitat:Funktioniert tatsächlich. Warum auch immer.

um dein Verständnis für die geschweiften Klammern zu wecken, hier eine Erklärung über Matrixformeln.

Hi,

(05.02.2016, 11:19)NameZero912 schrieb: [ -> ]es scheint als dass kein VB-Script nötig ist

VBA ist bei großen Datenmengen schneller und nicht so resourcenfressend!

z.B.

Code:
Sub M_snb()

   sn = Range("A1:B5")

   For j = 1 To UBound(sn)

      Cells(j, 6).Resize(, sn(j, 2)) = Split(Replace(Space(sn(j, 2)), " ", sn(j, 1) & " "))

   Next

   Cells(1, 6).CurrentRegion = Cells(1, 6).CurrentRegion.Value

   MsgBox Application.Average(Cells(1, 6).CurrentRegion)

   MsgBox Application.StDevP(Cells(1, 6).CurrentRegion)

End Sub

etwas einfacher:

Code:
Sub M_snb()

   sn = Range("A1:B5")

   For j = 1 To UBound(sn)

      Cells(j, 6).Resize(, sn(j, 2)) = sn(j, 1)

   Next

   MsgBox Application.Average(Cells(1, 6).CurrentRegion)

   MsgBox Application.StDevP(Cells(1, 6).CurrentRegion)

End Sub

Seiten: 1 2

WillWissen

Rabe

snb

snb