Schleife / Liste nacheinander in Zelle kopieren
22.01.2020 17:14:47
Tim
nachdem ich hier schon etwas mitgelesen habe....und einiges an Hilfe gefunden habe...muss ich nun mal mit einem neuen Problem hier auf Hilfe hoffen.
Ausgang:
Ich habe in EINER Datei zwei Reiter:
1. "liste"
2. "Tabelle3"
Das Makro soll jetzt aus dem Reiter "liste" die Daten der Spalte A kopieren und in EINE Zelle (C4) des Reiters "Tabelle3" kopieren. Dabei soll immer der vorherige Eintrag mit dem neuen überschieben werden.
-- Hintergrund ist das dann für jeden Wert eine E-Mail geöffnet werden soll, in der eine gefilterte "individuelle" Tabelle ist.
Die Zelle (C4) in dem Reiter Tabelle3" ist dabei die Referenzzeile für den Autofilter den ich auch per Makro nacheinander starte...)
Ich kriege es leider per Makro nur hin das die Daten von "liste" in der "Tabelle3" "untereinander" kopiert werden.
Wie bekomme ich das hin?
Hier mal das Makro das ich zur Zeit verwende....
_____________________________________________________
Sub Mail_Monat()
Dim loLetzte As Long
Application.ScreenUpdating = False
With Sheets("liste")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range(.Cells(2, 1), .Cells(loLetzte, 2)).Copy
Sheets("Tabelle3").Range("C3").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Danke und lg, Tim