Von einer Tabelle mittels Button in eine andere kopieren

[Fragender]

Hallo,

ich habe mich an folgendes Tut gehalten: https://www.youtube.com/watch?v=GQYkURMTmoU&t=10s

Hierbei passiert nur leider der Fehler, dass die erste Zeile korrekt transportiert wird, die zweite auch, dann aber immer in die zweite Zeile hineinkopiert/ überschrieben wird, nicht aber in eine dritte/ verite / fünte..

Der Code:

Sub transfer_werte()

Dim AngabeA As String, AngabeB As Date, AngabeC As String, AngabeD As String
   
    Worksheets("Tabelle1").Select
    AngabeA = Range("C2")
    AngabeB = Range("C4")
    AngabeC = Range("C6")
    AngabeD = Range("C8")
    Worksheets("Speicherung").Select
    Worksheets("Speicherung").Range("A2").Select
   
    If Worksheets("Speicherung").Range("A2").Offset(1, 0) <> "" Then
        Worksheets("Speicherung").Range("A2").End(xlDown).Select
    End If
   
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = AngabeA
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = AngabeB
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = AngabeC
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = AngabeD

End Sub


Kann da jemand helfen? Wäre super! 

LG

[schauan]

Hallöchen,

gehe den code mit F8 schrittweise durch und schaue, was in A3 vorgeht und was dann zwischen If und End If passiert.

[Rudi'S]

Hallo Fragender,

hast du dir das Video genau angeschaut?
Dann wirst du bemerkt haben, dass er dort mit der Zeile 2 (also in A2) beginnt. Und dort steht ein Text, ist also nicht leer. 
Und das muss bei dir der Fall sein. 
Wenn du das änderst, funktioniert es mit diesem Makro auch bei dir.

Gruß Rudi