Hulp nodig in Excel

[topgun9]

Hallo,
Ik ben bezig in excel en wil graag een deel van wat ik op blad 1 heb staan op blad 2 ook hebben staan. En als ik het dan aanpas op blad 1 dat ik het ook aangepast heb op blad 2 en andersom. Alleen kom ik hier niet uit. Ik doe er even een voorbeeldje bij. Wie o wie kan mij helpen!!

 

[Hoornvan]

topgun9,

Gebruik voor de eerste Wouter de volgende formule en terk deze dan naar beneden.
Voor de andere items geld het zelfde, dat kun je nu wel.

=Blad1!C8

 

[HSV]

Deze code is voor het gehele blad:
Zet deze code achter blad1 in de vbEditor.

Private Sub Worksheet_Activate()
x = Array("Blad1", "Blad2")
Sheets(x).FillAcrossSheets _
    Worksheets("Blad2").Range("A1:XFD1048576")
End Sub

En onderstaande achter blad2.

Private Sub Worksheet_Activate()
x = Array("Blad1", "Blad2")
Sheets(x).FillAcrossSheets _
    Worksheets("Blad1").Range("A1:XFD1048576")
End Sub

Range kun je aanpassen.

 

[topgun9]

Hoi HSV, ik ben bezig gegaan met de code van jou. Maar als ik deze invoer verdwijnt alles op mijn eerste blad. En als ik het dan eerst even ergens anders naartoe kopieer en dan weer terug kopieer, kan dat niet. Heb je enig idee wat ik moet doen?

Het is me al gelukt. Bedankt voor de hulp! Deze kan opslot!

 

[HSV]

Als eerste achter het blad zetten waar het naar toe geschreven moet worden.
Dan de tweede code achter het andere blad.
Of allebeide codes erin zetten, en dan het blad waar het minst aan gegevens in staat als eerste activeren.