Tabellenzeile per Makro anfügen Formeln übernehmen

Hallo liebes Forum,
ich fand hier im Archiv vor einiger Zeit ein tolles Makro das mir sehr half.
Hier der Link https://www.herber.de/forum/archiv/1532to1536/1533060_Tabelle_erweitern.html
Ich versuche jetzt dieses Makro dahingehend umzustricken, dass ich in der Tabelle auch Formeln nutzen kann. Wie in dem Beispielanhang z.B. Spalte7 =[Spalte1]+[Spalte2], Spalte9 =[Spalte7]*[Spalte8]
Füge ich der Tabelle "händisch" Daten am Ende zu, werden die Formel übernommen, füge ich mittels Makro Daten hinzu geschieht dieses leider nicht.
Ich habe schon versucht den Datenbereich zu splitten von B bis G, H und K, da habe ich mich mit meinen bescheidenen Kenntnissen aber verrant.
Dann stieß ich auf FillDown, kam damit aber auch nicht weiter :(
Evtl. findet sich hier ja jemand der behilflich sein mag.
Hier meine Beispieldatei zum Spielen :)
https://www.herber.de/bbs/user/125484.xlsm
Vielen Grüße
Marc

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub AppendDataHH() Dim Wb As Workbook: Set Wb = ThisWorkbook Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Rechnungen") Dim Bereich As Range, Lo As ListObject, ListNeu As Range, i& Dim lz As Long Dim ls As Long lz = Ws.Cells(Rows.Count, 8).End(xlUp).Row ls = Ws.Cells(8, Columns.Count).End(xlToLeft).Column With Ws .Range(.Cells(lz, 2), .Cells(lz, ls)).Copy .Range(.Cells(lz + 1, 2), .Cells(lz + 1, ls)) _ .Range(.Cells(lz + 1, 2), .Cells(lz + 1, 7)).ClearContents .Cells(lz + 1, 9).ClearContents .Cells(lz + 1, 11).ClearContents End With End Sub

Sorry Marc,
hatte das mit der ersten Zeile übersehen. Hier nochmal neu:

Sub AppendDataHH()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Rechnungen")
Dim Bereich As Range, Lo As ListObject, ListNeu As Range, i&
Dim lz As Long
Dim ls As Long
lz = Ws.Cells(Rows.Count, 8).End(xlUp).Row
ls = Ws.Cells(8, Columns.Count).End(xlToLeft).Column
With Ws
.Range(.Cells(lz, 2), .Cells(lz, ls)).Copy .Range(.Cells(lz + 1, 2), .Cells(lz + 1, ls)) _
.Range(.Cells(lz + 1, 2), .Cells(lz + 1, 7)).ClearContents
.Cells(lz + 1, 9).ClearContents
.Cells(lz + 1, 11).ClearContents
.Range(.Cells(6, 2), .Cells(6, ls)).Copy
.Range(.Cells(lz + 1, 2), .Cells(lz + 1, ls)).PasteSpecial (xlPasteValues)
End With
End Sub

Gruß Oisse

Option Explicit Sub AppendDataHH() Dim Wb As Workbook: Set Wb = ThisWorkbook Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Rechnungen") Dim lz As Long, ls As Long lz = Ws.Cells(Rows.Count, 8).End(xlUp).Row ls = Ws.Cells(8, Columns.Count).End(xlToLeft).Column With Ws .Range(.Cells(6, 2), .Cells(6, 7)).Copy .Cells(lz + 1, 2).PasteSpecial Paste:=xlPasteValues .Cells(lz + 1, 9) = .Cells(6, 9) .Cells(lz + 1, 11) = .Cells(6, 11) End With Application.CutCopyMode = False Set Wb = Nothing: Set Ws = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Tabellenzeile per Makro anfügen Formeln übernehmen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenzeile per Makro anfügen Formeln übernehmen

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

303 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