Sortering af oplysninger i excel

Kan du ikke tælle antal felter ud fra eleverne der er opfyldt?

Ellers prøv lige at uploade et eksempel på arket, det er lidt lettere.

Den skal tælle antallet af moduler, dvs. ordet "modul" i 4. kolonne. Ofte drejer det sig om flere moduler. Derudover skal den også sortere efter lovligt, ulovligt eller sygdom, hvilket er angivet i 3. kolonne. Alt dette skal sammentælles under de enkelte elever - i alt 135...

Eksempel:
http://www.wydojnik.com/ex.xls

Jeg vil i eksemplet gerne vide, hvor meget fravær Anders Andersen har, fordelt på lovligt, ulovligt og sygdom. Og det samme vil jeg også gerne vide om de resterende 134 elever... Og uden at det bliver en uoverskuelig lang hvis-sætning...

Har du overvejet at benytte en pivottabel - den kunne se ud som følger (2007 eks.):
Rækkeetiketter: Elev og Kategori
Kolonneetiketter: Bemærkninger
Værdier: Antal af bemærkninger
/Be_Nice

Har du overvejet at få konstrueret en VBA-løsning?

Det ville nok være det smarteste, men kan desværre ikke finde ud af VBA... Så håbede bare, eller håber stadigvæk, at der findes en løsning inde i Excel...

Ok - men det er der jo andre der kan :-)

Du skal være meget velkommen til at prøve :-)

Rem Version 1 / 11-02-2009
Rem Koden indsættes Ark1
Rem Hele filen kan tilsendes -
Rem mail til: pb (a) supertekst-it . dk
Rem ===================================
Dim ark2 As Worksheet
Private Sub opdaterFravær()
    Application.ScreenUpdating = False
   
Rem beregnantal rækker på ark1
    antalrækker = ActiveCell.SpecialCells(xlLastCell).Row
   
Rem initier ark2
    Set ark2 = ActiveWorkbook.Sheets("Ark2")
   
Rem gennemlæs ark1 - test om elev er oprettet på ark2
    For ræk = 2 To antalrækker
        elevnavn = Cells(ræk, 2)
        elevrække = findesElevNavn(elevnavn)
       
Rem find & opdater kategori
        opdaterKategori Cells(ræk, 3), elevrække
    Next ræk

Rem tilpas kolonne-bredde
    ark2.Columns.AutoFit
   
    ark2.Activate
   
    Application.ScreenUpdating = True
End Sub
Private Function findesElevNavn(elevnavn)
    With ark2
        For r = 2 To 1000
            If .Cells(r, 1) = elevnavn Then
                findesElevNavn = r
                Exit Function
            Else
                If .Cells(r, 1) = "" Then
                    .Cells(r, 1) = elevnavn
                    findesElevNavn = r
                    Exit Function
                End If
            End If
        Next r
    End With
End Function
Private Sub opdaterKategori(Kategori, række)
Rem find kolonne for kategori
    With ark2
        For kol = 2 To 100
            If LCase(.Cells(1, kol)) = LCase(Kategori) Then
                .Cells(række, kol) = .Cells(række, kol) + 1
                Exit Sub
            Else
                If .Cells(1, kol) = "" Then
                    Exit For
                End If
            End If
        Next kol

Rem kategori blev ikke fundet - indsæt denne
        .Cells(1, kol) = Kategori
        .Cells(række, kol) = .Cells(række, kol) + 1
    End With
End Sub
Private Sub CommandButton1_Click()
    opdaterFravær
End Sub

Tak for jeres svar.

Jeg har prøvet at rodde lidt med VBA, men uden held. Men Jeg fandt imidlertid løsningen ved første bestemme forekomsten af ordet "modul" udfra elevens navn ved formlen: =(LÆNGDE(D2)-LÆNGDE(UDSKIFT(D2;"modul";"")))/5, og derefter oprette en pivottabel, som arrangerede disse værdier udfra hver elev.

Tak for svaret. Det var lige den løsning, som jeg manglede...

Hvis jeg skal have points - så er her et svar.

PS: SVAR anvendes ikke af opgavestilleren - men af "bidrags-yderne"

Ja, det har jeg efterhånden fundet ud af... :-)