Bereich kopieren

Bild

Betrifft: Bereich kopieren
von: Lorenz
Geschrieben am: 20.04.2015 11:32:18

Hallo liebe Excel Freunde und VBA-Profis!
Wer kann mir bei nachfolgendem Problem helfen?
Der Inhalt ab der Cursorposition soll um eine Zeile
nach unten kopiert werden und die Zeile an der Cursorposition
geleert werden. Was über das Bereichsende hinausgeht, darf
verloren gehen (s. auch vorher/nachher Grafik!).
Für Eure Hilfe vielen Dank im Voraus.
Viele Grüße
https://www.herber.de/bbs/user/97168.htm
Userbild
https://www.herber.de/bbs/user/97169.htm
Userbild

Bild

Betrifft: AW: Bereich kopieren
von: Spenski
Geschrieben am: 20.04.2015 11:53:36
Hallo

Sub Makro1()
    ActiveCell.Select
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
gruß
christian

Bild

Betrifft: AW: Bereich kopieren
von: Lorenz
Geschrieben am: 20.04.2015 12:03:17
Hallo Christian, vielen Dank für Deine rasche Hilfe!
Allerdings habe ich mich wahrscheinlich ungenau ausgedrückt!
Ich möchte nicht, dass die Liste länger wird. Die Daten sollen
in einem bestimmten Bereich (z. B. A8:C20) bleiben.
D.h. wenn vorher in der letzten Zeile Einträge vorhanden sind,
sollen diese durch die Werte der vorangegangenen Zeile ersetzt werden
und die Werte der letzten Zeile verloren gehen!
Gruß, Lorenz

Bild

Betrifft: AW: Bereich kopieren
von: Spenski
Geschrieben am: 20.04.2015 12:18:55
Hallo Lorenz

Sub Makro1()
    ActiveCell.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("21:21").Clear
    Range("A1").Select
End Sub
Ich muss aber dazusagen das der Code nicht schön ist , nur dein wunsch ausführt. ich denke da wird sich im laufe des tages jemand melden und nen schöneren code posten.
gruß
christian

Bild

Betrifft: AW: Bereich kopieren
von: Lorenz
Geschrieben am: 20.04.2015 12:22:28
Auf jeden Fall hilft mir das vorerst mal weiter!
Vielen Dank für die schnelle Lösung!
Gruß, Lorenz

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Bereich kopieren"