An Hajo nochmal wegen Zeilen einfügen

Bild

Betrifft: An Hajo nochmal wegen Zeilen einfügen
von: Thomas
Geschrieben am: 08.10.2003 09:14:14

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

Bild


Betrifft: AW: Zeile einfügen
von: Hajo_Zi
Geschrieben am: 08.10.2003 10:53:56

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/



 Bild

Beiträge aus den Excel-Beispielen zum Thema " An Hajo nochmal wegen Zeilen einfügen"