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
58.4k Fragen
249k Antworten
7k Nutzer