• 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.

Overzicht openstaande taken

Status
Niet open voor verdere reacties.

Biereco

Gebruiker
Lid geworden
27 sep 2006
Berichten
62
Ben een overzicht aan het maken met openstaande taken per leerling.
Elke leerling krijgt zijn eigen tabblad, en op het eerste zou een overzicht moeten komen met openstaande en afgeronde taken.

Heb een voorbeeld bijgevoegd, wellicht dat dit wat meer duidelijkheid geeft.

Bekijk bijlage Overzicht taken.xlsx

Alvast bedankt voor de hulp
 
Code:
=INDEX('Overzicht taken'!B2:D4;MATCH(A1;'Overzicht taken'!A2:A4;0);MATCH(B2;'Overzicht taken'!B1:D1;0))

Hier een eerste aanzet en kijk eens of je hier verder mee kunt.
Zet bovenstaande formule in cel C2 van elk 'leerling' tabblad.
Voor de nederlandse versie moet hij natuurlijk vertaald worden.
index = index
match = vergelijken
 
Bedankt Willem voor de snelle reactie.

De werking zou net andersom moeten werken.
Bij de losse tabbladen wordt de voortgang bijgehouden, en op het eerste blad komt een overzicht met de stand van zaken.
 
Typ in het eerste blad in B2 en kopieer naar beneden:
Code:
=indirect("'"&A2&"'!C2")
 
In 'Overzicht taken'!B2 en kopiëren naar rechts en naar beneden:
Code:
=VERT.ZOEKEN(B$1;INDIRECT("'"&$A2&"'!$B:$C");2;0)
 
De formule van Marcel doet precies wat ik zocht, dank daarvoor.

Is het ook mogelijk dat Excel de tabbladnaam uitleest en deze dan plaats in b.v. cell A2, A3, enz.
In het voorbeeld gaat het om 3 namen, in de praktijk varieert het tussen de 15 en 30 namen, zou handig zijn als dit kan.

Alvast bedankt
 
Dat kan met bijvoorbeeld dit achter een knopje:
Code:
Private Sub CommandButton1_Click()
    Dim sht as Object
    Dim i As Integer
    
    i = 2
    For Each sht In ThisWorkbook.Sheets
        If sht.Name <> "Overzicht taken" Then
            Cells(i, 1) = sht.Name
            i = i + 1
        End If
    Next sht
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan