Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Jeremy vom 26.01.2022, 16:20 Options

Zeilen inkl. Formel einfügen

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

Antwort schreiben

Antwort 1 von Saarbauer vom 26.01.2022, 16:36 Options

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

Antwort 2 von Jeremy vom 29.01.2022, 09:15 Options

Hallo Helmut, danke für die Antwort.

Kann mir jemand zwecks des Makros behilflich sein?

Vielen Dank

Jeremy

Antwort 3 von Saarbauer vom 31.01.2022, 11:53 Options

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

Antwort 4 von Hajo_Zi vom 31.01.2022, 12:17 Options

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

Antwort 5 von rainberg vom 31.01.2022, 12:36 Options

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

Antwort 6 von rainberg vom 31.01.2022, 12:38 Options

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

Antwort 7 von Mickey vom 31.01.2022, 12:45 Options

@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

^{Bei Eingriffen ins System, die Registry oder Dateien erst eine Sicherung vornehmen©}

Antwort 8 von rainberg vom 31.01.2022, 14:59 Options

Hallo Mic,

alles klar.

Dann gibt es also doch keine Wunder :-)

Gruss
Rainer

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..