An Hajo nochmal wegen Zeilen einfügen

Forumthread: An Hajo nochmal wegen Zeilen einfügen
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: An Hajo nochmal wegen Zeilen einfügen

08.10.2003 11:14:14

Thomas

kann das ganze auch auf andere tabellenblätter ausweiten. also der soll auf blatt 2 an gleicher stelle die zeile einfügen wie auf blatt 1.
kannst du mir noch folgen?

gruß thomas

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeile einfügen

08.10.2003 12:53:56

Hajo_Zi

AW: Zeile einfügen

08.10.2003 12:53:56

Hajo_Zi

Hallo Thomas

Es sollte keiner persönlich mit einer Frage angesprochen werden, das könnte andere davon abhalten zu Antworten. Es ist nicht jeder ununterbrochen am Rechner. Es gibt auch noch andere Sachen die erledigt werden müssen.


Sub Makro1()
Rows(ActiveCell.Row).Insert Shift:=xlDown           ' Zeile
Columns(ActiveCell.Column).Insert Shift:=xlToRight  ' Spalte
Worksheets("Tabelle2").Rows(ActiveCell.Row).Insert Shift:=xlDown            ' Zeile
Worksheets("Tabelle2").Columns(ActiveCell.Column).Insert Shift:=xlToRight   ' Spalte
End Sub

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!