Autom. Einfügen einer Zeile in allen Tabellenblätter + Kopie aus Vorgänge

[Laila]

Automatisches Einfügen einer Zeile in allen
Tabellenblätter + Kopie aus Vorgängerzeile.


Hallo, wer weiss Rat bei folgendem kniffeligem Problem?

ich habe eine Excel-Datei mit ca 50 Tabellenblätter. Die
Tabellenblätter 6 bis 50 sind alle genau gleich aufgebaut.
Sie enthalten einige Durchschnittsberechnungen, die in
jedem Tabellenblatt in den gleichen Zeilen erfolgen. Die
Stichprobe der Berechnungen ist in allen Tabellenblättern
gleich. Lediglich in einer Schlüssel-Zelle T3
unterscheiden sich die Tabellenblätter, durch welche die
entsprechenden Daten geladen werden (über sverweis)

z.B. Tabellenblatt X1
...
Zeile 18 Artikel 1 Kennzahl1 Kennzahl2...
Zeile 19 Artikel 2 Kennzahl1 Kennzahl2...

Zeile 20 DurchschnittA Kennzahl1 Kennzahl2...
....

Nun möchte ich die Stichprobe der
Durchschnittsberechnungen für alle Tabellenblätter
erweitern.

Ich möchte z.B. in den Tabellenblättern 6 bis 50 eine
Zeile unter Zeile 18 einfügen
UND sämtliche Formeln und Formate aus Zeile 18 in die neu
eingefügte Zeile 19 kopieren.


Dieser Arbeitsschritt "Zeile einfügen + Formeln + Formate
aus Vorgängerzeile kopieren"
möchte ich am liebsten per Makro in jeder beliebigen Zeile
für die Tabellenblätter 6 bis 50 anwenden können.

Da die Tabellenblätter 1 bis 5 neue Berechnungen aus den
Tabellenblätter 6 bis 50 beihalten, sollen diese aber
nicht durch das Makro verändert werden.

Weiss jemand einen Rat, wie eine Lösung aussehen könnte?

[Herbert Taferner]

Hallo Laila,

Post by Laila
Automatisches Einfügen einer Zeile in allen
Tabellenblätter + Kopie aus Vorgängerzeile.
Hallo, wer weiss Rat bei folgendem kniffeligem Problem?
Weiss jemand einen Rat, wie eine Lösung aussehen könnte?

dafür brauchst du normalerweise kein Makro

aber du kannst ja den Rekorder dabei mitlaufen lassen
und dann eventuell eine Inputbox einbauen zur Auswahl
der jeweiligen Zeile

markiere einmal die Blätter im Register die du bearbeiten möchtest

z. B. Tabelle6 markieren dann mit gedrückter SHIFT Taste die
Tabelle50 markieren jetzt müßten auch alle Tabellen die dazwischen liegen
markiert sein nun markierst du in einer der Tabellen die Zeile vor der eine
neue eingefügt werden soll dann im Menü Einfügen Zeile auswählen
dadurch wird in jedem Blatt eine Zeile eingefügt und die eingefügte
neue Zeile ist nun markiert dann drückst du STRG + u dadurch wird
alles von der vorherigen Zeile nach unten in die neue Zeile ausgefüllt
mit einem Rechtsklick auf das Tabellenregister und wählen von
Gruppierung aufheben wird die Markierung der Blätter wieder gelöst

mfg Herbert

[Laila]

Danke Herbert!
Du, wie meinst Du das mit der Inputbox?

Viele Grüsse
Laila

[Herbert Taferner]

Hallo Laila,

Post by Laila
Danke Herbert!

Bitte gern !

Post by Laila
Du, wie meinst Du das mit der Inputbox?

naja wenn du den Rekorder mitlaufen läßt
dann kommt irgend wo dies vor

Sheets("Tabelle6").Activate
Rows("19:19").Select
Selection.Insert Shift:=xlDown
Selection.FillDown

das könnte man dann ändern z. B. so etwa
dadurch erscheint eine Inputbox wo du die
entsprechende Zeilennummer eingeben mußt
vor der eine neue eingefügt werden soll

das Select und Selection .... was der Rekorder
vorschlägt kannst du ja entfernen das brauchst du ja nicht

'.........div Code
Sheets("Tabelle6").Activate
'------------------------
inp = InputBox("Zeilennummer eingeben", "Zeile einfügen vor")
Rows(inp).Insert Shift:=xlDown
Rows(inp).FillDown
'------------------------
'.........div Code

mfg Herbert

[Laila]

Super, Danke noch mal!
Den ersten Teil habe ich heute im Büro schon ausprobiert,
das hat sehr gut geplappt!
Die Inputbox kommt am Mo dran.
Ich wünsch Dir ein schönes WE!
Laila

[Herbert Taferner]

Hallo Laila,

Post by Laila
Super, Danke noch mal!
Den ersten Teil habe ich heute im Büro schon ausprobiert,
das hat sehr gut geplappt!
Die Inputbox kommt am Mo dran.
Ich wünsch Dir ein schönes WE!

Bitte gern !

freut mich wenn's hilft

mfg Herbert