Erkannt ist das falsche wort, ich mache das ehr nach dem Try and Terror Prinzip, aber nochmal vielen Dank.
Ich wollte im nächsten Schritt diesen Durchschnitt nach Rechts in mehrere Felder der selben Zeile schieben per Autofill, weil ich in einer Matrix von Datein arbeite, aber der Befehl aus der dem Autorecord funktioniert dort nicht
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:BA2"), Type:=xlFillDefault
Range("A2:BA2").Select
Also er kopiert die Werte aber nicht die Formel auf die einzelnen Spalten
Ich habe dann versucht die Range oben anzupassen also
Range("A20:BA2") = Application.WorksheetFunction.Average(ws.Range("A" & x & ":A" & x + 4 - 1)) '
Ich verstehe aber noch nicht ganz wie ich die ws.Range() richtig erweitere, bei mir kopiert er trotzdem immer nur den Mittelwert aus A
Eine idee, wie ich das noch anpassen könnte?
MfG Freddy
|