• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

een cel koppeling maken in een cel op een andere sheet.

Status
Niet open voor verdere reacties.
G

gpiket7

Gebruiker
Lid geworden
25 jul 2008
Berichten
169
Goedemorgen,

Ik heb een urenregistratie gemaakt (fictieve namen, mailadressen etc.), deze werkt tot dus ver zoals gewenst.
Nu wil ik er alleen nog een totaal overzicht in maken.
Je hebt een "BLANCO" sheet, dit is template sheet welke gebruikt wordt om een nieuwe week te maken.

Een nieuw werkblad wordt aangemaakt door te klikken op de knop "Aanmaken Nieuwe Week", deze krijgt dan de naam "Week xx", waar xx de weeknummer is.
Dan zou ik graag willen dat in het werkblad "Totaal Overzicht" bij de juiste week een koppeling komt met de zojuist aangemaakte sheet.

Dus om bij Week 47 (huidige week) te blijven, in het Totaal Overzicht in cel
X11 moet komen "='Week 47'!C6"
X12 moet komen"='Week 47'!D6"
X13 moet komen "='Week 47'!E6"

Is wat ik wil überhaupt mogelijk?
 

Bijlagen

Waarom zet je dat dan niet alvast in het tabblad totaaloverzicht
Als je de cellen toch al weet
 
Omdat op dit moment de werkbladen nog niet bestaan.
In de cel komt dan "#VERW!" te staan en wordt niet automatisch bijgewerkt als de werkblad wordt aangemaakt.
Maar als daar een oplossing voor is, kan dat ook prima.
 
Als je op een deftige manier met excel wil werken verwijder dan alle samengevoegde cellen en plaats zoveel mogelijk gegevens op 1 blad.
 
Ik heb het op de volgende manier voor elkaar gekregen, maar dit is wel heel veel code.
Heeft iemand een manier met een nettere/kortere code?

Code: 
If ActiveSheet.Range("C4") = 1 Then
    Worksheets("Totaal Overzicht").Range("D8").FormulaR1C1 = "='Week 1'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("D9").FormulaR1C1 = "='Week 1'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("D10").FormulaR1C1 = "='Week 1'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 2 Then
    Worksheets("Totaal Overzicht").Range("D11").FormulaR1C1 = "='Week 2'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("D12").FormulaR1C1 = "='Week 2'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("D13").FormulaR1C1 = "='Week 2'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 3 Then
    Worksheets("Totaal Overzicht").Range("D14").FormulaR1C1 = "='Week 3'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("D15").FormulaR1C1 = "='Week 3'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("D16").FormulaR1C1 = "='Week 3'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 4 Then
    Worksheets("Totaal Overzicht").Range("D17").FormulaR1C1 = "='Week 4'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("D18").FormulaR1C1 = "='Week 4'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("D19").FormulaR1C1 = "='Week 4'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 5 Then
    Worksheets("Totaal Overzicht").Range("D20").FormulaR1C1 = "='Week 5'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("D21").FormulaR1C1 = "='Week 5'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("D22").FormulaR1C1 = "='Week 5'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 6 Then
    Sheets("Totaal Overzicht").Select
    Worksheets("Totaal Overzicht").Range("D23").FormulaR1C1 = "='Week 6'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("D24").FormulaR1C1 = "='Week 6'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("D25").FormulaR1C1 = "='Week 6'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 7 Then
    Worksheets("Totaal Overzicht").Range("D26").FormulaR1C1 = "='Week 7'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("D27").FormulaR1C1 = "='Week 7'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("D28").FormulaR1C1 = "='Week 7'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 8 Then
    Worksheets("Totaal Overzicht").Range("D29").FormulaR1C1 = "='Week 8'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("D30").FormulaR1C1 = "='Week 8'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("D31").FormulaR1C1 = "='Week 8'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 9 Then
    Worksheets("Totaal Overzicht").Range("D32").FormulaR1C1 = "='Week 9'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("D33").FormulaR1C1 = "='Week 9'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("D34").FormulaR1C1 = "='Week 9'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 10 Then
    Worksheets("Totaal Overzicht").Range("H8").FormulaR1C1 = "='Week 10'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("H9").FormulaR1C1 = "='Week 10'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("H10").FormulaR1C1 = "='Week 10'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 11 Then
    Worksheets("Totaal Overzicht").Range("H11").FormulaR1C1 = "='Week 11'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("H12").FormulaR1C1 = "='Week 11'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("H13").FormulaR1C1 = "='Week 11'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 12 Then
    Worksheets("Totaal Overzicht").Range("H14").FormulaR1C1 = "='Week 12'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("H15").FormulaR1C1 = "='Week 12'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("H16").FormulaR1C1 = "='Week 12'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 13 Then
    Worksheets("Totaal Overzicht").Range("H17").FormulaR1C1 = "='Week 13'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("H18").FormulaR1C1 = "='Week 13'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("H19").FormulaR1C1 = "='Week 13'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 14 Then
    Worksheets("Totaal Overzicht").Range("H20").FormulaR1C1 = "='Week 14'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("H21").FormulaR1C1 = "='Week 14'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("H22").FormulaR1C1 = "='Week 14'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 15 Then
    Worksheets("Totaal Overzicht").Range("H23").FormulaR1C1 = "='Week 15'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("H24").FormulaR1C1 = "='Week 15'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("H25").FormulaR1C1 = "='Week 15'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 16 Then
    Worksheets("Totaal Overzicht").Range("H26").FormulaR1C1 = "='Week 16'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("H27").FormulaR1C1 = "='Week 16'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("H28").FormulaR1C1 = "='Week 16'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 17 Then
    Worksheets("Totaal Overzicht").Range("H29").FormulaR1C1 = "='Week 17'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("H30").FormulaR1C1 = "='Week 17'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("H31").FormulaR1C1 = "='Week 17'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 18 Then
    Worksheets("Totaal Overzicht").Range("H32").FormulaR1C1 = "='Week 18'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("H33").FormulaR1C1 = "='Week 18'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("H34").FormulaR1C1 = "='Week 18'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 19 Then
    Worksheets("Totaal Overzicht").Range("L8").FormulaR1C1 = "='Week 19'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("L9").FormulaR1C1 = "='Week 19'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("L10").FormulaR1C1 = "='Week 19'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 20 Then
    Worksheets("Totaal Overzicht").Range("L11").FormulaR1C1 = "='Week 20'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("L12").FormulaR1C1 = "='Week 20'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("L13").FormulaR1C1 = "='Week 20'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 21 Then
    Worksheets("Totaal Overzicht").Range("L14").FormulaR1C1 = "='Week 21'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("L15").FormulaR1C1 = "='Week 21'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("L16").FormulaR1C1 = "='Week 21'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 22 Then
    Worksheets("Totaal Overzicht").Range("L17").FormulaR1C1 = "='Week 22'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("L18").FormulaR1C1 = "='Week 22'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("L19").FormulaR1C1 = "='Week 22'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 23 Then
    Worksheets("Totaal Overzicht").Range("L20").FormulaR1C1 = "='Week 23'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("L21").FormulaR1C1 = "='Week 23'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("L22").FormulaR1C1 = "='Week 23'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 24 Then
    Worksheets("Totaal Overzicht").Range("L23").FormulaR1C1 = "='Week 24'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("L24").FormulaR1C1 = "='Week 24'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("L25").FormulaR1C1 = "='Week 24'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 25 Then
    Worksheets("Totaal Overzicht").Range("L26").FormulaR1C1 = "='Week 25'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("L27").FormulaR1C1 = "='Week 25'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("L28").FormulaR1C1 = "='Week 25'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 26 Then
    Worksheets("Totaal Overzicht").Range("L29").FormulaR1C1 = "='Week 26'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("L30").FormulaR1C1 = "='Week 26'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("L31").FormulaR1C1 = "='Week 26'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 27 Then
    Worksheets("Totaal Overzicht").Range("L32").FormulaR1C1 = "='Week 27'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("L33").FormulaR1C1 = "='Week 27'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("L34").FormulaR1C1 = "='Week 27'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 28 Then
    Worksheets("Totaal Overzicht").Range("P8").FormulaR1C1 = "='Week 28'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("P9").FormulaR1C1 = "='Week 28'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("P10").FormulaR1C1 = "='Week 28'!R[-7]C[-19]"
        Else
    End If
If Range("C4") = 29 Then
    Worksheets("Totaal Overzicht").Range("P11").FormulaR1C1 = "='Week 29'!R[-5]C[-21]"
    Worksheets("Totaal Overzicht").Range("P12").FormulaR1C1 = "='Week 29'!R[-6]C[-20]"
    Worksheets("Totaal Overzicht").Range("P13").FormulaR1C1 = "='Week 29'!R[-7]C[-19]"
        Else
    End If
   End If
En dit zo door tot en met nummer 53
 
kijk eens of deze bijlage voldoet. Zonder VBA
Overigens ben ik het helemaal eens emields
 

Bijlagen

Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan