Clever-Excel-Forum

Normale Version: Aktive Zelle kopieren
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2
Hallo,
Vielen Dank an euch.
Alle Makros funktionieren!

Gruß 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
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
Vielen Dank atilla für Deine schnelle Hilfe!
Dein Makro funktioniert super!

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

Gruß Derhard
Seiten: 1 2