Parti stemmer i matrix

Det kræver vist lidt mere forklaring..

Det kommer så her.

Her er stemmerne og de forskellige patier.

Parti:    Antal stemmer:
Socialdemokratiet    12909
Det Radikale Venstre    1058
Det Konservative Folkeparti    4733
SF - Socialistisk Folkeparti    7402
Silkeborg Borgerliste    593
Liberal Alliance    243
Kristendemokraterne    350
Dansk Folkeparti    3335
Venstre, Danmarks Liberale Parti    13392
Enhedslisten - De Rød-Grønne    916

Det har jeg så stilt op, så venstre ligger nr.1 med flest stemmer.

1    13392      -    Venstre, Danmarks Liberale Parti
2    12909      -    Socialdemokratiet
3    7402
4    6696
5    6454,5
6    4733
7    4464
8    4303

Således. Men istedet for jeg selv skal skrive navnet ud for, hvem der nu har fået de forskellige stemmer, er det så muligt at få excel, til selv at finde ud af hvilket parti/navn der har fået det antal stemmer? Fx. så den selv skriver venstre, ud for de 13392 stemmer?

Håber det er forståeligt.

hvor skal excel hente opysningerne fra ?

Jeg har selv hentet alle info fra kmdvalg.dk/kv/2009/adk.htm, men har selv overført infoen til excel. Så excal skal hente infoen fra det jeg har skrevet ind, med de antal stemmer. Som jeg har vist over, at venstre har fået 13392, om det så er muligt at indføre det navn ved siden af deres antal stemmer.

Og skal lige sige at det er ud fra D'hondske valgmetode.

Udfører du en sortering?

Jeg har brugt funktionen STØRSTE, til at få stemmerne sat op også er det jeg selv skal skrive alle partierne ind, men leder efter en funktion der "kæder" partiet sammen med dens stemmer.

Når du har hentet fra hjemmesiden - kopierer du så ikke alle data over i Excel (partibogstav, partinavn& antal stemmer)?

Hvis du derefter sorterer på stemmetal - så vil partinavnet følge med helt automatisk!

Jeg er ikke helt med i hvad du mener med den stortere funktion.

Har uploadet min excel fil her; http://www.gratisupload.dk/download/51459/

Kan godt være det slet ikke kan lade sig gøre og få parti navnet til at følge antal stemmer automatisk.

Har downloaded din fil.

Ja det kan lade sig gøre - prøv at sende en mail til mig. @-adresse under min profil - så skal jeg sende din fil i sorteret udgave.

Rem Koden er indsat i module1
Rem Brugerdefineret formel:
Rem =findPartiet(E15;"C3:AG12";"B") 

Dim ræk As Long, parti As String
Public Function findPartiet(stemmeTal, søgIOmråde, hentFraKolonne)
    ræk = findRække(stemmeTal, søgIOmråde)
    If ræk > 0 Then
        findPartiet = Range(hentFraKolonne & ræk)
    Else
        findPartiet = "?"
    End If
End Function
Private Function findRække(stemmeTal, område)
    tal = Format(stemmeTal, "#,###,###,##0")
   
    With ActiveSheet.Range(område)
        Set c = .Find(tal, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            findRække = c.Row
        Else
            findRække = 0
        End If
    End With
    Exit Function
End Function

Du skal have mange tak for hjælpen!

Hvis du vil give point - så skal du afvise dit eget svar og acceptere mit.

PS:
(SVAR er kun til forslagsstilleren - mens opgavestilleren kun KOMMENTERER og evt. ACCEPTERER)

Og selv tak - godt vi fandt ud af det..

Lige det med at finde rundt i det hele, men så er det accepteret og endnu en gang tak. Det har lige lettet byrden for mit arbejde :)

Alt er på plads - tak - fortsat god vind...