Hallo, 

ich würde gerne meinen "Durchschnittswert", also eine beliebige Zahl, im ersten Reiter in den zweiten Reiter kopieren und diesen bei Änderungen in die nächste Zeile vom zweiten Reiter erweitern, sodass ich am Ende ganz viele Durchschnittswerte nebeneinander in Reiter zwei stehen haben. 

Kann mir da jemand bitte helfen? In meinem Code erweitert er die Zahlen nicht.

Sub Makro12()

Dim Durchschnittswert As String

Worksheets("Tabelle1").Select
Durchschnittswert = Range("L9")

Worksheets("Tabelle2").Select
Worksheets("Tabelle2").Range("A10").Select
If Worksheets("Tabelle2").Range("A10").Offset(0, 1) <> "" Then
Worksheets("Tabelle2").Range("A10").End(x1Down).Select
End If

ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Durchschnittswert

End Sub

Ich danke euch herzlichst für eure Unterstützung!