Doortrekken formule mbt verschilende werkbladen

[Rick88]

Hoi,

Kan iemand mij helpen om onderstaande formule door te trekken.

In cel D6 heb ik de volgende formule staan =blad1!$M$8+blad1!$M$9

In cel D7 wil ik dan de volgende formule hebben =blad2!$M$8+blad2!$M$9

In cel D8 =blad3!$M$8+blad3!$M$9 etc. etc.

Als ik nu de cellen D6 en D7 selecteer en doortrek, dan krijg ik in cel D8 hetzelfde als in cel D6, maar ik wil dan dat hij doorloopt naar blad3.

Iets soortgelijks ben ik al tegen gekomen op dit forum, maar ik kom daar niet helemaal uit.

Hoop dat iemand mij hier mee kan helpen.

Alvast bedankt!

Groetjes,

Rick

 

[Superzeeuw]

Rick,

Als je dan een verwijzing naar de topic wilt toevoegen dan hoeft men het wiel niet 2x uit te vinden.

 

[Rick88]

Rick,

Als je dan een verwijzing naar de topic wilt toevoegen dan hoeft men het wiel niet 2x uit te vinden.

Het betreft dit topic: http://www.helpmij.nl/forum/showthread.php?t=444505
Alleen daar gaat het over werkmappen en bij mijn vraag over werkbladen. Ook weet ik niet helemaal hoe ik dit moet toepassen in mijn formules.

 

[Ad Becude]

Probeer deze dan maar eens.

=SOM(INDIRECT("Blad"&RIJ()-5&"!$M$8:$M$9"))

en doorvoeren naar beneden.

 

[Rick88]

Probeer deze dan maar eens.

=SOM(INDIRECT("Blad"&RIJ()-5&"!$M$8:$M$9"))

en doorvoeren naar beneden.

Bedankt!
Nu loopt alles in een logische volgorde van blad 1 steeds 1 omhoog, maar als ik de werkbladen allemaal een verschillende naam (piet, wim, kees etc.) wil geven?
Wat moet ik dan aanpassen in de formule, want als ik "blad" vervang door een naam dan pakt hij hem niet.

 

[Ad Becude]

Zo dus.

 

[sylvester-ponte]

hoi AdB

nu typ je de blad namen zelf in, is er ook een standaard functie die dat kan?

 

[HSV]

hoi AdB

nu typ je de blad namen zelf in, is er ook een standaard functie die dat kan?

Zet deze code achter het blad waar het moet komen.
Cells(1, 1) staat voor rij 1, kolom 1.
In dit geval dus A1 en verder naar beneden.

Private Sub Worksheet_Activate()
    With Cells(1, 1)
        .CurrentRegion.ClearContents
        For Each sh In Sheets
        c0 = c0 & sh.Name & "|"
        Next
    .Resize(Sheets.Count) = WorksheetFunction.Transpose(Split(c0, "|"))
    End With
End Sub

 

[Ad Becude]

@sylvester-ponte,

Weet je wel dat je een ander z'n topic kaapt.

 

[Rick88]

Top! Hij doet het :thumb:

Harstikke bedankt!

Lukt dit eigenlijk ook met een achernaam erbij (als je die er nu bijvoegt doet hij het in ieder geval niet)?
Zo niet geen probleem ben al blij dat dit werkt.

 

[Ad Becude]

Ik ben ff de weg kwijt, waar hebben we het nu over?
Het antwoord van Harry, of van Ad.
Dat krijg je als iemand je topic kaapt, en er nog een antwoord op krijgt ook.

 

[Rick88]

Ik reageerde op uw antwoord.

 

[HSV]

Ik ben ff de weg kwijt, waar hebben we het nu over?
Het antwoord van Harry, of van Ad.
Dat krijg je als iemand je topic kaapt, en er nog een antwoord op krijgt ook.

Mijn excuses Ad,

Ik dacht er niet bij na.
Maar dit is volgens mij de oplossing.
=SOM(INDIRECT("'"&C8&"'!M8:M9"))

 

[Rick88]

Mijn excuses Ad,

Ik dacht er niet bij na.
Maar dit is volgens mij de oplossing.
=SOM(INDIRECT("'"&C8&"'!M8:M9"))

Dat is hem inderdaad.
Bedankt voor de hulp

 

[Ad Becude]

Oké Harry.......Ik heb er ook weer iets van opgestoken.

@Harry,
Rest mij de vraag, is jou formule bedoeld als er een achternaam bij komt?, voor zover als ik het zie doet ie het zelfde als de mijne.
Zet ik er een naam achter of voor.....geeft hij ook een fout.

 

[Rick88]

Oké Harry.......Ik heb er ook weer iets van opgestoken.

@Harry,
Rest mij de vraag, is jou formule bedoeld als er een achternaam bij komt?, voor zover als ik het zie doet ie het zelfde als de mijne.
Zet ik er een naam achter of voor.....geeft hij ook een fout.

De cel waar de naam in staat moet dan wel hetzelfde zijn als de naam van het blad, dan doet hij het wel.

 

[HSV]

De cel waar de naam in staat moet dan wel hetzelfde zijn als de naam van het blad, dan doet hij het wel.

En dan is het stukje VBA van #8 wel weer handig.
Ps. Even de formule in je bestandje gezet Ad.

 

[Ad Becude]

Lekker slim van mij.........moet wel het Bladnaam aanpassen

 

[sylvester-ponte]

hoi

als je deze functie toe voegt aan een module
kan je hem gebruiken om je blad namen in te vullen.

Function Blad(nr As Integer) As String
Blad = Sheets(nr).Name
End Function

groet sylvester

 

[Ad Becude]

sylvester,

Je kaapt een ander zijn topic.

Lees de regels eens door, en begin een eigen draadje.