Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema " An Hajo nochmal wegen Zeilen einfügen"
Zeilenhöhe in cm festlegen Summe gefilterter Zeilen
Zeilenumbruch Leere Zeilen löschen
Spalten/Zeilen aus- und einblenden Zeilenumbruch in Formel erzwingen
Zeilen und Spalten über ein Drehfeld ein- und ausblenden Alle Kopf-/Fußzeilen-Festlegungen löschen
Fußzeilen beim Öffnen eintragen Zellinhalte zeilenweise sortieren