Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Wert aus Zeile kopieren und untereinander auflisten
Normale Version: Wert aus Zeile kopieren und untereinander auflisten
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

jules

07.01.2018, 12:31
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

07.01.2018, 12:59
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

07.01.2018, 13:05
Hallo Tom,

super! Vielen Dank für die schnelle Hilfe!

VG

Jules

Crazy Tom

07.01.2018, 16:42
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
Clever-Excel-Forum > Office-Anwendungen > Excel > Wert aus Zeile kopieren und untereinander auflisten