Excel Zeile oberhalb einer bestimmten Zeile einfügen

Konstrukterhoch3 · 7. Juni 2019

Hallo Zusammen,

Ich bin am erstellen einer Zeitkarte für mein Unternehmen.

Nun möchte ich ein Marko programmieren, wo ich mit einem Button eine Zeile Kopieren und einfügen kann. Diese soll immer oberhalb der Zeile "Krank / Unfall" eingefügt werden. Das Makro konnte ich soweit erstellen, jedoch erreiche ich nicht, dass diese immer Oberhalb der Zeile "Krank / Unfall" eingefügt wird.

Hier mein Makro:

Sub NächsteZeile()
'
' NächsteZeile Makro
'
' Tastenkombination: Strg+n
'
Rows("15:16").Select
Range("J15").Activate
Selection.Copy
Rows("17:17").Select
Selection.Insert Shift:=xlDown
Range("A17:K18").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub

Kann mir dabei jemand helfen?

Claus Busch

Hallo,

da sich beim Einfügen der Zeilen die Tabelle erweitert, kannst du nicht mit festen Werten arbeiten. Du musst vor dem Einfügen ermitteln in welcher Zelle "Krank / Unfall" steht.

Probiere es mal so:

Dim myRow As Long

myRow = Application.Match("Krank / Unfall", Range("A:A"), 0)
Rows(myRow).Resize(2).Insert xlShiftDown
Range(Cells(myRow - 4, 1), Cells(myRow - 3, 11)).Copy
Range("A" & myRow).PasteSpecial xlPasteFormats

Claus

Grolgosh

Ok so einfach kann es gehen. Danke dir

Genau das was ich gesucht haben.

Konstrukterhoch3

Hallo Claus

Hat besten funktioniert danke dir vielmals für deine schnelle Hilfe;-)

Claus B.

Hallo,
probiere es mal so:

Sub ZeileEinfügen()

Dim LRow As Long

LRow = Cells(Rows.Count, "A").End(xlUp).Row

Rows(LRow).Insert

End Sub

Claus

Claus Busch

Ciao Giovanni,

selbst bei Excel 2003 hast du 65536 Zeilen. Der Platz wird also immer reichen.

Du hast die Möglichkeit oberhalb Zeile 50 neue Zeilen einzufügen. Damit rutscht die Summenzelle nach unten und du musst nur die Formel anpassen, falls du die Zeilen direkt oberhalb der Summenzelle einfügst. Fügst du die Zeilen weiter oben ein, dann passt
sich die Formel an.

Aber wenn ich eine solche Tabelle hätte, die sich ständig erweitert, würde ich oberhalb der Überschriften noch 3 bis 5 Zeilen einfügen und die Summe oberhalb errechnen lassen. Du hast sie besser im Blick und kannst den Bereich in der Formel groß genug wählen,
dass die Summe immer stimmt.

Mit freundlichen Grüßen

Claus

Hi,

willkommen im Windows Forum!

Excel Zeile oberhalb einer bestimmten Zeile einfügen - Similar Threads - Excel Zeile bestimmten	Forum	Datum
Zellen/Zeilen in EXCEL einfügen funktioniert nicht Zellen/Zeilen in EXCEL einfügen funktioniert nicht: Hallo,ich kann in einem bestimmten XLS keine Zellen einfügen. Blattschutz habe ich geprüft -> nicht anZellen/Bereich schutz geprüft -> nicht anWenn ich am Ende der Tabelle die Zeile markiere und...	Microsoft Office	5. Dezember 2024
Excel - Zeile Oberhalb einer bestimmten Zeile einfügen Excel - Zeile Oberhalb einer bestimmten Zeile einfügen: Hallo und gutes neues Jahr zusammen,ich bin gerade dabei die Karteikarten für das Unternehmen meiner Eltern zu überarbeiten.Ich stehe nun vor folgendem Probleml. Ich möchte per Macro in der unten...	Microsoft Office	4. Januar 2023
In Zeile ab einem bestimmten Wert restliche Zeile kopieren und darunter einfügen In Zeile ab einem bestimmten Wert restliche Zeile kopieren und darunter einfügen: Hallo zusammen, ich möchte in einer Zeile ab einem bestimmten Wert die restliche Zeile kopieren und die Zellen in der Zeile darunter einfügen.Und das so lange bis der bestimmte Wert Text nicht...	Microsoft Office	21. September 2021
ZEILE einfügen ZEILE einfügen: Ich möchte in einer XLS-Tabelle eine Zeile einfügen, erhalte aber die Fehlermeldung: "MS-Excel kann keine Zeilen einfügen, weil nicht leere Zellen über das Ende des Arbeitsblattes hinaus...	Microsoft Office	13. Juli 2020
Eine Excel-Zeile unterhalb einfügen Eine Excel-Zeile unterhalb einfügen: Sehr geehrte Community, gibt es eine Möglichkeit in Excel Zeilen nicht nur oberhalb, sondern auch unterhalb einzufügen? Dies wäre für mich sehr hilfreich, da ich dann nicht mehr jedes Mal die...	Microsoft Office	26. April 2020
Einfügen von Zeilen Einfügen von Zeilen: Hallo Zusammen, nun auch mit erkennbarer Meldung aus Excel...! Habe das Problem, dass ich bei einer meiner Excelanwendungen keine Zeile mehr einfügen kann. Kennt jemand eine Abhilfe für die...	Microsoft Office	1. Oktober 2018
ganze Zeile nach eine bestimmten Zeile verschieben wenn eine Zelle dieser Zeile ein... ganze Zeile nach eine bestimmten Zeile verschieben wenn eine Zelle dieser Zeile ein...: Hallo Bin noch ein Anfänger in Exel, hätte eine Frage: Ist es möglich wenn ich in einer Zelle einer Zeile z.B F2 ein P eingebe die ganze Zeile 2 sich dann automatisch nach einer bestimmten Zeile...	Microsoft Office	29. September 2017

Excel Zeile oberhalb einer bestimmten Zeile einfügen