Formel übernehmen bei Zeile einfügen

Private Sub CommandButton1_Click() 'Zeile einfügen Dim iCount As Integer With Selection iCount = .Rows.Count Rows(.Row + iCount & ":" & _ .Row + (iCount * 2) - 1).Rows.Insert , xlFormatFromLeftOrAbove 'hier wird Formatierung übernommen End With ActiveCell.Offset(1, 0).Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton22_Click() 'Zeile einfügen Dim iCount As Integer With Selection iCount = .Rows.Count Rows(.Row + iCount & ":" & _ .Row + (iCount * 2) - 1).Rows.Insert , xlFormatFromLeftOrAbove 'hier wird Formatierung übernommen .EntireRow.Cells(1, 2).Copy Range("B:B").Rows(.Row + iCount & ":" & _ .Row + (iCount * 2) - 1).PasteSpecial xlPasteFormulas Range("G:G").Rows(.Row + iCount & ":" & _ .Row + (iCount * 2) - 1).FormulaLocal = .EntireRow.Cells(1, 7).FormulaLocal End With ActiveCell.Offset(1, 0).Select End Sub

Hallo Dieter!

Die beiden verschiedenen Methoden sind fett dargestellt.
Die Formeln in B u. G. werden aus der ersten Zeile der Markierung geholt.
Die Copy-PasteSpecial-Methode passt nach deiner Beschreibung besser.
Sollen die Formel immer aus B3 bzw, G3 übernommen werden?

Private Sub CommandButton22_Click() 'Zeile einfügen

Dim iCount As Integer

With Selection
iCount = .Rows.Count
Rows(.Row + iCount & ":" & _
.Row + (iCount * 2) - 1).Rows.Insert , xlFormatFromLeftOrAbove 'hier wird Formatierung übernommen

.EntireRow.Cells(1, 2).Copy
Range("B:B").Rows(.Row + iCount & ":" & _
.Row + (iCount * 2) - 1).PasteSpecial xlPasteFormulas

Range("G:G").Rows(.Row + iCount & ":" & _
.Row + (iCount * 2) - 1).FormulaLocal = .EntireRow.Cells(1, 7).FormulaLocal
End With
ActiveCell.Offset(1, 0).Select

End Sub

Gruß Gerd

Private Sub CommandButton1_Click() 'Zeile einfügen und Formeln kopieren Dim iCount As Integer, X As Range With Selection Set X = ActiveCell iCount = .Rows.Count Rows(.Row + iCount & ":" & _ .Row + (iCount * 2) - 1).Rows.Insert shift:=xlDown, copyorigin:=xlFormatFromLeftOrAbove 'hier wird Formatierung übernommen .EntireRow.Cells(1, 2).Copy Range("B:B").Rows(.Row + iCount & ":" & _ .Row + (iCount * 2) - 1).PasteSpecial xlPasteFormulas Range("G:G").Rows(.Row + iCount & ":" & _ .Row + (iCount * 2) - 1).PasteSpecial xlPasteFormulas Application.CutCopyMode = False End With X.Offset(1, 0).Select End Sub

Hallo Gerd,
Vielen Dank für Deine Mühe und es klappt jetzt wie ich wollte.
Da ich über längerer Zeit auch nicht untätig war einen Code zu suchen,
habe ich auch doch noch eine Lösung gefunden die auch wunderbar klappt.
Soll aber Deine Arbeit und Hilfe nicht schmälern. ( Ehrlich gemeint )
Bin immer froh wenn geholfen wird, deshalb auch vielen lieben Dank an Dich.
Hier mal der Code den ich gefunden habe,
Bei dem Code fügt er die Neue Zeile ein, und kopiert die gesamten Formel von oben in die neue Zeile ein.

Private Sub CommandButton1_Click()  'Zeile einfügen und Formeln kopieren

Dim Zelle As Range

ActiveCell.EntireRow.Copy

Cells(ActiveCell.Row + 1, 1).Insert Shift:=xlDown

For Each Zelle In Range(Cells(ActiveCell.Row + 1, 1), Cells(ActiveCell.Row + 1, 255).End(xlToLeft))

If Not Zelle.HasFormula Then

Zelle.ClearContents

End If

Next Zelle

Cells(ActiveCell.Row + 1, 1).Select

End Sub

Vielleicht kann jemand den Code für sich gebrauchen.?
Danke nochmals an Dich Gerd und Problem gelöst
MfG.
Dieter

Beliebteste Forumthreads (12 Monate)

Formel übernehmen bei Zeile einfügen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formel übernehmen bei Zeile einfügen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread