Markierte Zellen kopieren

Question

Hallo,

Ich benötige ein Makro mit folgender Funktion:

ich habe eine Tabelle in der Daten in Spalte A:A befinden.

Wenn ich nun diverse Zellen in Spalte A auswählen, sollen diese Werte in Spalte D1 D2 usw. ohne Leerzellen eingefügt werden

Ciao Camillo

Answer 1

Hi Camillo,

Sub Kopieren()
Dim lngLetzte As Long
lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 4)), Cells(Rows.Count, 4).End(xlUp).Row, Rows.Count)
Selection.Copy Cells(lngLetzte + 1, 4)
End Sub

Bis später,
Karin

Answer 2

Hi Karin,

vielen Dank für das Makro. Funktioniert perfekt.

Ciao Camillo