Ich möchte gerne mit einem Button
3 Zellen von der Tabelle2 A1:A3 in Tabelle1 H2:K2 kopieren.
und jedes mal beim (Button Klick)sollte es eine Zeine hinuntergehen und die gleichen Daten einfügen nach Tabelle1 H3:K3 usw.
Danke
Sub kopieren()
With Sheets("Tabelle1")
.Range(Cells(.Cells(65536, 8).End(xlUp).Row + 1, 8), _
.Cells(.Cells(65536, 8).End(xlUp).Row + 1, 10)).Value = _
Application.Transpose(Sheets("Tabelle2").Range("A1:A3").Value)
End With
End Sub