Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Zellen kopieren und einfügen

1 view
Skip to first unread message

Jens

unread,
Aug 5, 2002, 4:21:28 AM8/5/02
to
Hallo NG,
ich mach's mir als VBA-Anfänger noch ein wenig schwer.

Ich will zwei benachbarte Zellen kopieren und in die direkt
darüberliegenden zwei leeren Zellen einfügen. Der Cursor
befindet sich in einer, bspw. der linken zu kopierenden
Zellen.

Kann mir jemand eine Hilfe für VBA geben.
Vielen Dank.
Jens

Bernd Held

unread,
Aug 5, 2002, 4:45:26 AM8/5/02
to
Hallo Jens,

das Makro für diese Aufgabe könnte lauten:

Sub ZellenEinfügen()
Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(0, 2)).Select
Selection.Insert Shift:=xlDown
End sub


Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Know-How und Office-Publikationen unter http://held-office.de

"Jens" <extern.jen...@durr.com> schrieb im Newsbeitrag
news:0ce101c23c59$1899e550$a5e62ecf@tkmsftngxa07...

Daniel Schmitz

unread,
Aug 5, 2002, 6:14:30 AM8/5/02
to
Hi Jens,

diese zwei Zeilen können Dich vielleicht auf den richtigen Weg
bringen:

Range(ActiveCell, ActiveCell.Offset(0, 1)).Copy Destination:=Range("E1")
Range(Selection.Offset(-1, 1), Selection.Offset(-1, 0)).Insert
Shift:=xlDown

Das Ziel bei der Kopie musst Du natürlich noch anpassen.

Ist es sowas was Du meintest?

Gruss
Daniel


"Jens" <extern.jen...@durr.com> schrieb im Newsbeitrag
news:0ce101c23c59$1899e550$a5e62ecf@tkmsftngxa07...

Frank Arendt-Theilen

unread,
Aug 5, 2002, 3:31:46 PM8/5/02
to
Hallo Jens,
folgende Anweisung:

ActiveCelle.Resize(1,2).Copy ActiveCell.Offset(-1,0)

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
eMail: Thei...@t-online.de, Homepage: http://www.xl-faq.de

0 new messages