Wert aus Zeile kopieren und untereinander auflisten

[jules]

Hallo Zusammen,

folgendes Szenario:

In Zeile M13 wird eine Email Adresse eingetragen. Sobald die Email an diese Adresse versendet wurde, soll die Email Adresse in Spalte Q1 kopiert werden.
Gebe ich jetzt eine neue Email Adresse in M13 ein und versende die Mail, soll in Spalte Q2 die neue Email Adresse kopiert werden usw.

Könnt ihr mir helfen?
(Das versenden der Email etc. funktioniert. Es geht lediglich ums kopieren von M13 und das untereinander einfügen)

Viele Grüße,

Jules

[Crazy Tom]

Hallo

dann bau das hier in dein Mail-Makro ein

Code:

Dim lngZiel As Long
lngZiel = Cells(Rows.Count, "Q").End(xlUp).Row + 1
Cells(lngZiel, "Q").Value = Range("M13").Value

MfG Tom

[jules]

Hallo Tom,

super! Vielen Dank für die schnelle Hilfe!

VG

Jules

[Crazy Tom]

Hallo

Code:

Dim lngZiel As Long
lngZiel = Cells(Rows.Count, "Q").End(xlUp).Row + 1
If lngZiel <= 13 Then lngZiel = 13
Cells(lngZiel, "Q").Value = Range("M13").Value

MfG Tom