Aus Spalte der aktiven Zelle kopieren
26.01.2021 19:53:51
Reto
Mit dem folgenden Code werden Daten aus bestimmten Zeilen der aktiven Spalte kopiert und in einem anderen Tabellenblatt eingefügt. Das funktioniert.
Ich wollte den Code so erweitern, dass ich aus der der aktiven Spalte, der Zeilen (z.B. 12, 14) ebenfalls Daten kopieren kann.
Meine Versuche den Code abzuändern sind aber bis jetzt gescheitert.
Sub TN_Daten_kopieren()
'Daten aus "Gesamtliste" in das Tabellenbaltt "Mail Anmeldung Kontrolle" exportieren. Daten aus _
_
_
_
aktiver Zelle (in welcher der Cursor steht) kopieren und in die erste leere zeile (leere Zeile _
_
_
Spalte 3) des Tabellenblattes "Kontrolle" einfügen.
Dim letzte As Long
With Sheets("Mail, Anmeldung, Kontrolle")
letzte = .Cells(Rows.Count, 3).End(xlUp).Row + 1
.Cells(letzte, "A") = Cells(ActiveCell.Row, "A").Value
.Cells(letzte, "G") = Cells(ActiveCell.Row, "D").Value
.Cells(letzte, "H") = Cells(ActiveCell.Row, "E").Value
' .Cells(letzte, "I") = Cells(ActiveCell.Column, 12).Value
End With
End Sub
Schon mal vielen Dank, wenn Ihr mir weiterhelfen könnt.
Gruss Reto