Werte protokollieren

unten stehender Code soll wechselnde Werte aus Tabelle1.Zelle B2 in Tabelle2.Spalte C sukzessive untereinander protokollieren.

Leider hat die Sache folgenden Haken: Der jeweilige Wert aus Zelle B2 wird in Spale C mehrfach untereinander geschrieben (je nach Definition der Schleife).

Vielleicht hat jemand von Euch einen Tip oder eine Anregung.

Herzlichen Dank im voraus!

Rafael

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim AktuellerWert As Variant, i As Integer
Application.ScreenUpdating = False
For i = 1 To 50
AktuellerWert = Tabelle1.Range("B2")
Tabelle2.Cells(i, 3) = AktuellerWert
Next i
End Sub