Zeile einfügen mit Makro

Sub Zeilen_einfügen() Application.ScreenUpdating = False Selection.EntireRow.Insert With Selection.EntireRow .Offset(-1, 0).Resize(1).Copy .PasteSpecial Paste:=xlPasteFormulas End With Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Zeile_einfügen() Application.ScreenUpdating = False If Selection.Row Sheets("DeineTabelle").Cells(Rows.Count, 1).End(xlUp).Row Then MsgBox " _ falscher Bereich" :Exit Sub Selection.EntireRow.Insert With Selection.EntireRow .Offset(-1, 0).Resize(1).Copy .PasteSpecial Paste:=xlPasteFormulas End With Application.ScreenUpdating = True End Sub

Hallo Zusammen,
Danke für die Tipps. Ich hab es jetzt etwas abgeändert und so umgesetzt:

Sub Zeilen_einfügen()
With ActiveSheet
lastRow = .Cells(Rows.Count, 1).End(xlUp).Row - 1
End With
If Selection.Row  lastRow Then MsgBox "Die gewählte Zelle liegt außerhalb des gültigen  _
Tabellenbereichs": Exit Sub
Application.ScreenUpdating = False
ActiveCell.Offset(1, 0).Select
ActiveCell.EntireRow.Insert
With Selection.EntireRow
.Offset(-1, 0).Resize(1).Copy
.PasteSpecial Paste:=xlPasteFormulas
End With
Application.ScreenUpdating = True
End Sub

Vielen Dank für die Hilfe.
Mit diesem Teil kopiere ich die Formeln in der selektierten Zeile, das klappt auch.


.Offset(-1, 0).Resize(1).Copy
.PasteSpecial Paste:=xlPasteFormulas

jedoch soll er nur die Formeln in Spalte 3-5 und 7-9 kopieren. Alle anderen sollen leer bleiben.
Wie stelle ich das an?
Außerdem ist nach dem einfügen die kopierte Zeile ausgewählt (also mit gestrichelter grüner Linie). Ich hätte gerne, dass wieder die ursprünglich selektierte Zelle aktivist und nichts weiter ausgewählt oder markiert.
Vielen lieben Dank für eure Tipps!!!

Sub Zeilen_einfuegen() Dim LastRow As Long, AktRow As Long Dim rAkt As Range Set rAkt = ActiveCell AktRow = rAkt.Row LastRow = Cells(Rows.Count, 1).End(xlUp).Row - 1 If AktRow LastRow Then MsgBox "Die gewählte Zelle liegt außerhalb des gültigen Tabellenbereichs " Exit Sub End If Application.ScreenUpdating = False Rows(AktRow + 1).Insert Cells(AktRow, 3).Resize(, 3).Copy Cells(AktRow + 1, 3).PasteSpecial xlPasteFormulas Cells(AktRow, 7).Resize(, 3).Copy Cells(AktRow + 1, 7).PasteSpecial xlPasteFormulas Application.CutCopyMode = False rAkt.Activate End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile einfügen mit Makro

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread