Hoe kan ik cellen invoegen zonder dat de formules in de andere kolom worden aangepast?

Question

ik wil data uit een kolom in een andere kolom inlezen. dat lukt, maar soms heeft de originele kolom niet alle velden. Als ik via een macro een veld invoeg worden de verwijzingen ook aangepast. Hoe kan ik cellen invoegen zonder dat de formules in de andere kolom worden aangepast?

als voorbeeld. in onderstaande tabel is links mijn info, die wil ik met formules naar kolom twee brengen. Als ik in de linkse kolom na 0€ -0.05 7 cellen invoeg, worden in kolom 2 de formules aangepast naar de nieuwe celnummers en dat zou ik niet willen.

00:00€ 0,19	00:00
Variabele kosten	Variabele kosten
0,384 kWh	0,384 kWh
€ 0,24	€ 0,24
Vaste kosten	teruglevering
€ -0,05
01:00€ 0,11
Variabele kosten	Netto Verbruik
0,250 kWh	Variabele kosten
€ 0,16
Vaste kosten
€ -0,05	vaste kosten
02:00€ 0,44	€ -0,05

Answer 1

Met onderstaande macro wordt zowel de inhoud als de opmaak van de cellen gekopieerd.

Sub Kopieer() 

With Sheets("Blad1") 

.Range("A1:A13").Copy Destination:=.Range("B1:B13")

End With 

End Sub

Maar je hebt het over formules, die zie ik niet staan; dan kan het anders worden.

Answer 2

Het spijt me, maar wat je schrijft begrijp ik maar half.

Komt ook omdat niet duidelijk is om welke rijen en kolommen het gaat.

Is het de bedoeling dat je met de formules in de rechterkolom de gegevens van de linkerkolom kopieert?

Answer 3

hoop dat het met formules wel duidelijker is? de ontvangen dat is niet volledig en ik bij cel : 01:00€ 0.11, 7 posities in willen voegen. Als ik dat doe worden de cellen in de naastliggende kolom aangepast de verwijzing wordt ipv A14 A21. ik heb geprobeerd de verwijzingen absoluut te maken $A$14 , maar dat help niet wordt ook verander in $A$21. ben het nu met 24 individuele macro's aan het oplossen, maar moet volgens mij eenvoudiger kunnen. Gaat om uur gebruik energie waarbij wel of geen teruglevering plaats vind. helaas niet met een simpele tabel te downloaden

00:00€ 0,19	=LINKS(A2;5)
Variabele kosten	=A3
0,384 kWh	=A4
€ 0,24	=A5
Vaste kosten	="Teruglevering"
€ -0,05	=ALS(B6="teruglevering";"";A7)
01:00€ 0,11	=ALS(B6="Teruglevering";A14;"")
Variabele kosten	="Netto verbruik"
0,250 kWh	="Variabele kosten"
€ 0,16	=ALS(B10="Variabele kosten";A11;"")
Vaste kosten	=ALS(B10="Variabele kosten";A12;"")
€ -0,05	="Vaste kosten"
02:00€ 0,44	=ALS(A13="Vaste kosten";A14;A7)