Wert aus Zeile kopieren und untereinander auflisten
#1
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
Top
#2
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
Top
#3
Hallo Tom,

super! Vielen Dank für die schnelle Hilfe!

VG

Jules
Top
#4
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
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste