ich habe eine Datei mit 3 Tabellen.
Tabelle Quelle fungiert quasi als 'Datenbank' und hat Formeln in den Spalten A:D.
Nun wird Block A:B in Tabelle A kopiert und Block C:D in Tabelle B.
Danach müssen die Formeln angepasst werden, da die Bezüge nicht mehr stimmen.
Ich habe eine Beispieltabelle angehangen.
Bisher erledige ich das per VBA (siehe Codebeispiel aus meinem Projekt). Hat den Nachteil, daß bei Formeländerungen der VBA-Code angepasst werden müßte.
Vielleicht hat jemand eine Idee.
[CODE
Private Sub SetFormeln_wsUploadSW(lStartzeile As Long, lEndzeile As Long)
' Bereich im Quellblatt 'DB' = [W:Z]
' W3 -> A3 "=B3"
' X3 -> B3 "=C3"
' Y3 -> C3 "=E3"
' Z3 -> D3 "=F3"
With wsUploadSW
' Spalte A
.Range("A" & lStartzeile).Formula = "=Angebot!B" & lStartzeile
.Range("A" & lStartzeile & ":A" & lEndzeile).FillDown
' Spalte B
.Range("B" & lStartzeile).Formula = "=Angebot!C" & lStartzeile
.Range("B" & lStartzeile & ":B" & lEndzeile).FillDown
' Spalte C
.Range("C" & lStartzeile).Formula = "=Angebot!E" & lStartzeile
.Range("C" & lStartzeile & ":C" & lEndzeile).FillDown
' Spalte D
.Range("D" & lStartzeile).Formula = "=Angebot!F" & lStartzeile
.Range("D" & lStartzeile & ":D" & lEndzeile).FillDown
End With
End Sub
[/CODE]
https://www.herber.de/bbs/user/99390.xlsx
Vielen Dank und Grüsse, Mike