Aktive Zelle kopieren

[derhard]

Hallo,
Vielen Dank an euch.
Alle Makros funktionieren!

Gruß Derhard

[derhard]

Hallo zusammen,
Ich hätte noch eine Bitte!

Wie müsste das Makro aussehen, wenn ich auch einmal mehrere Zellen in einer Zeile markiere und dieser Bereich an das Ende nach unten kopiert werden soll ??

Vielen Dank für Eure Hilfe

Gruß Derhard

[atilla]

Hallo,

Code:

Sub kopier_nach_unten()
Cells(Cells(Rows.Count, Selection.Column).End(xlUp).Row + 1, Selection.Column).Resize(, Selection.Columns.Count) = Selection.Value
Selection = ""
End Sub

Han jetzt für mich etwas neues beobachten können:
Mit einer Zelle geht es ohne .Value, als Bereich muss man .Value nehmen

[derhard]

Vielen Dank atilla für Deine schnelle Hilfe!
Dein Makro funktioniert super!

Noch ein schönes Wochenende wünsch ich Dir!

Gruß Derhard