Daten durch VBA speichern

[Hydronaut]

Nur aus Interesse, ist so was mit VBA schwer zu erledigen?

Das kann ich nicht beurteilen. Aber aus meiner Sicht wäre es ein unnötiger Aufwand.

[BoskoBiati]

Hi,

ist so was mit VBA schwer zu erledigen?

jein. Es kommt auf die Randbedingungen an.

Einfaches Makro:

Code:

Private sub worksheet_Change(Byval Target as Range)
Dim wks as worksheet
Dim loLetzte as long
set wks=sheets("Tabelle2")
If target.count >1 or intersect(Target, Range("A1") is nothing then exit sub
loletzte=wks.cells(rows.count,1).end(xlup).row+1
wks.cells(loletzte,1)=target
Range("B1")=application.worksheetfunction.average(range(wks.cells(2,1),wks.cells(loletzte,1)))
end sub

ungetestet, für eine Spalte

[snb]

Wenn du keine VBA Kenntnisse hast ist es immer zu schwierig.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 1 Then Cells(1, 2) = Evaluate("average(" & Cells(1).CurrentRegion.Columns(1).Address & ")")
End Sub