Makro; Zeile an aktueller Pos. einfügen

Forumthread: Makro; Zeile an aktueller Pos. einfügen
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Makro; Zeile an aktueller Pos. einfügen

05.06.2003 10:09:47

Michael

Hallo zusammen,

zu meinem Problem habe ich bereits eine Lösung bekommen,
ActiveCell.EntireRow.Insert
Rows(1).Copy Destination:=Rows(ActiveCell.Row)
aber,
1.Kann man den Befehl auch so schreiben, dass die Zeile eingefügt wird und die bereits bestehenden Zeilen nach unten verschoben werden.(z.Zt. überschreibt er die bestehenden Zeilen)
2.wie müßte der Befehl aussehen, wenn die einzufügenden Zeilen in einem anderen Arbeitsblatt stehen würden

Danke im voraus für Eure Hilfe.

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Makro; Zeile an aktueller Pos. einfügen

05.06.2003 10:25:43

Frederik Fuhrmann
Re: Makro; Zeile an aktueller Pos. einfügen

05.06.2003 10:31:06

Andi_H
Re: Makro; Zeile an aktueller Pos. einfügen

05.06.2003 16:45:23

Michael

Re: Makro; Zeile an aktueller Pos. einfügen

05.06.2003 10:25:43

Frederik Fuhrmann

Hallo!

Z.B.:

Rows("10:10").Insert Shift:=xlDown
Rows("1:1").Copy Rows("10:10")

2. sheets("Tabelle1").range("a1").copy sheets("Tabelle2").range("a1")

Gruß
F.

Re: Makro; Zeile an aktueller Pos. einfügen

05.06.2003 10:31:06

Andi_H

hi michael,

zu 1
ActiveCell.EntireRow.Insert Shift:=xlDown
zu 2
wenn die zelle in einem anderen sheet steht, kannst du nicht mehr mit acitvecell arbeiten, sieht dann so aus:
sheets("Tabelle2").cells(5,2).entirerow.insert shift:=xldown
die 5 bei cells steht für die zeile, die 2 für die spalte (also Spalte B)
mußt du dir halt noch anpassen.

gruß

Andi