Meerdere cellen wijzigen

[Karag68]

Hallo,

Ik heb een probleem waar ik niet uitkom. Stel ik heb 10 sheets in een excelbestand.
Nu wil ik op elke sheet in cel A1 dezelfde inhoud hebben. Dit is nog niet zo moelijk maar als ik nu in een willekeurige sheet cel A1 wijzig moet dit ook in alle overige sheets aangepast worden.
Wie weet hier een oplossing voor?
Alvast bedankt voor de moeite.

Groetjes,
Frank

 

[OctaFish]

Dat kan alleen als je in de cellen op de andere bladen met formules werkt, of met een actie vanuit het bron werkblad, die de cellen in de overige werkbladen vervangt.

Stel ik heb 10 sheets in een excelbestand.

Stel wij hebben een voorbeeldbestand....

 

[edmoor]

Of met een stukje VBA in de ThisWorbook module:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Address(0, 0) = "A1" Then
        Application.EnableEvents = False
        For Each Sh In ThisWorkbook.Sheets
            Sh.Range("A1") = Target.Value
        Next Sh
        Application.EnableEvents = True
    End If
End Sub

 

[Senso]

Dat kun je toch doen door van alle sheets Blad1 Blad2 Blad3 een groep [Groep] te maken. Ctrl en even op de bladen klikken of Alle bladen selecteren.

 

[Karag68]

Bedankt voor jullie snelle reacties.
De oplossing van edmoor werkt voor mij perfect. Dankjewel.

 

[Karag68]

Edmoor,

Nog even een vraagje. Als ik dit nu met een andere cel dan A1 (bv B5) wil doen, wat moet ik dan aanpassen?
Ik dacht dat ik dan alleen de A1 in jouw code moest aanpassen maar dat was dus blijkbaar iets te simpel gedacht.
Ik heb niet zoveel verstand van VBA. Kun je mij hierbij nog even helpen?

 

[edmoor]

Je moet dan 2x A1 wijzigen in B5.
Als je A1 EN B5 wilt wordt het verhaal uiteraard weer anders.

 

[Senso]

We gaan Edmoor gewoon een dagtaak bezorgen.:d:d:d

 

[Karag68]

Edmoor,
Stom van mij. Bedankt voor je hulp.

 

[edmoor]

Sh*t happens