werte aktiver Zeile kopieren, einfügen
20.01.2021 12:25:05
Reto
Ich wollte die Werte aus der aktiven Zeile des Tabellenblatt ("Gesamtliste Teilnehmer"), Spalten A, D, E kopieren und in die erste leere Zeile Tabellenblatt ("Mail, Anmeldung, Kontrolle") in die Spalten A, G, H einfügen.
Meine Bastelei mit einem abgeänderten Code aus dem "Office Forum":
Sub TN_Daten_kopieren()
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 5)).copy
Sheets("Mail, Anmeldung, Kontrolle").Cells(Sheets("Mail, Anmeldung, Kontrolle").Cells(Rows. _
Count, 1).End(xlUp).Row + 1, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
Da komme ich nicht weiter...
Bin ich auf dem richtigen Weg?
Ich danke schon mal für eure Hilfe!
Grüsse
Reto