Zeilen inkl. Formel einfügen

Question

Hallo Leute,


mal wieder eine kleine Frage.

Ich habe ein sehr großes Excel Sheet mit sehr vielen Tabellenreitern und vielen Spalten und Zeilen.

Ich muss teilweise in einzelne Sheets Zeilen und Spalten einfügen.
Die Formel, wird leider nicht übernommen :-(

Gibt es da eine Grundeinstellung in Excel direkt oder geht so etwas nur über Makro.

Theoretisch möchte ich bei eine Zeile die eingefügt wird, die Formel aus der darüberliegenden Zeile, bei einer eingefügten Spalte, die Formelm der Spalte links daneben.

Zusatzfrage:

Die Zeilen sind auf allen Blättern identisch. Kann ich bspw., zB. mit einem Makro, alle Tabellenblätter markieren, dann einmal eine Zeile einfügen, und auf allen Blättern ist die Zeile inkl. der Formel der darüberstehenden Zeile übernommen oder muss man dann Blatt für Blatt durchgehen?



Vielen Dank für eure Hilfe


Jeremy

Answer 1

Hallo,

zum einen geht es enschliesslich Formle nur über Makro.

Du kannst aber in Mehreen Tabellenblättern gleichzeitig Zeilen und Spalten einfügen.

Du kannst aber gleichzeitig mehrere Tabellenblätter bearbeiten, inden du diese gleichzeitig unter halten der Umschalt- oder STRG-Taste anklickst.

Dann die Zeile oder Spalte einfügen wie auf einem einzelnen Tabellenblatt. Anschliessen könntest du die Zeile Darüber oder die Spaltedaneben rüberziehen

Grúß

Helmut

Answer 2

Hallo Helmut, danke für die Antwort.

Kann mir jemand zwecks des Makros behilflich sein?


Vielen Dank

Jeremy

Answer 3

Hallo,

Hier deine Makros

Sub Zeile_zusätzlich()
'
Zeile = ActiveCell.Row
Rows(Zeile).Select
Selection.Insert Shift:=xlDown
Rows(Zeile - 1).Select
Selection.Copy
Range("A" & Zeile).Select
ActiveSheet.Paste
End Sub


Sub Spalte_zusätzlich()
'
Spalte = ActiveCell.Column
Columns(Spalte).Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight
Columns(Spalte - 1).Select
Selection.Copy
Cells(1, Spalte).Select
ActiveSheet.Paste
End Sub

In deine Liste einfügen, bekommst du wohö selbst hin

Gruß

Helmut

Answer 4

Hallo Helmut,

man soll es nicht glauben, aber es geht auch ohne select.

Option Explicit

Sub Zeile_zusätzlich()
'
Rows(ActiveCell.Row).Insert Shift:=xlDown
Rows(ActiveCell.Row - 1).Copy Range("A" & ActiveCell.Row)
End Sub


Sub Spalte_zusätzlich()
'
Columns(ActiveCell.Column).Insert Shift:=xlToRight
Columns(ActiveCell.Column - 1).Copy Cells(1, ActiveCell.Column)
End Sub

Hinweise zu select Link zur Datei

Gruß Hajo

Answer 5

Hallo zusammen,

auf Select kann man meistens verzichten.

Beispiel für Zeile einfügen

Option Explicit

Sub Zeile_zusätzlich()
ActiveCell.Insert Shift:=xlDown
Rows(ActiveCell.Row - 1).Copy Rows(ActiveCell.Row)
End Subb

Gruss
Rainer

Answer 6

Subb = Sub

hatte vorsorglich noch ein b angefügt, da der letzte Buchstabe immer abgehackt wurde.
Es ist nun scheinbar ein Wunder geschehen :-))

Gruss
Rainer

Answer 7

@Rainer,
der letzte Buchstabe wird verschluckt, wenn der abschliessende Codetag in der jeweiligen Zeile steht: (End Su[/code])
Setzt du den abschliessenden Codetag darunter wird der Buchstabe nicht verschuckt:
(End Sub
[/code])

Der Bug ist hoffentlich bald behoben.

Gruss,
Mic

[sup]Bei Eingriffen ins System, die Registry oder Dateien erst eine Sicherung vornehmen©[/sup]

Answer 8

Hallo Mic,

alles klar.

Dann gibt es also doch keine Wunder :-)

Gruss
Rainer