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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen