Herbers Excel-Forum - das Archiv
An Hajo nochmal wegen Zeilen einfügen
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
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/