Archief - Excel probleem

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
P

PDSOUNDS

Legacy Member
Heykes,

ik heb een excel probleem, ik dacht dat het een kleintje was, maar aangezien niemand het antwoord weet, lijkt het een groot probleem.

Ik heb een tabel met allemaal getallen in het rood en in het zwart, bestaat er een manier om enkel alle rode getallen op te tellen of enkel al de zwarte getallen?

De vraag is simpel, het antwoord blijkbaar heel wat moeilijker.

Dank u
G

GregoryCo

Legacy Member
ik denk dat het iets in de aard is van:
=ALS('xx'zwart';dan;'xx'...

Kweet wel nie of da hier juist is wa ik typ.
Maar zoek es in de help ofzo, kan veel verhelpen.
S

Suicide Monkey

Legacy Member
Ik vrees dat je met vba zult moeten werken om zoiets gedaan te krijgen. Als je op CTRL+F11 drukt kom je in de editor terecht en daar voeg je een module toe waarin je volgende code zet:

Code: 
Function tel_kleur(cellen As Range, kleur As Variant) As Integer
    Dim teller As Range, aantal, kleurcode As Integer
    aantal = 0
    Select Case kleur
        Case "rood"
            kleurcode = 3
        Case "zwart"
            kleurcode = 1
        Case Else
            kleurcode = -1
    End Select
    For Each teller In cellen
        If teller.Font.ColorIndex = kleurcode Then
            aantal = aantal + 1
        End If
    Next teller
    tel_kleur = aantal
End Function

als je dan in een cel vb: =tel_kleur(E2:E23;"rood") zet krijg je dan het aantal cel met de rode getallen van E2 to E23.
V

Vladimirvlad

Legacy Member
Suicide Monkey zei:
Ik vrees dat je met vba zult moeten werken om zoiets gedaan te krijgen. Als je op CTRL+F11 drukt kom je in de editor terecht en daar voeg je een module toe waarin je volgende code zet:

Code: 
Function tel_kleur(cellen As Range, kleur As Variant) As Integer
    Dim teller As Range, aantal, kleurcode As Integer
    aantal = 0
    Select Case kleur
        Case "rood"
            kleurcode = 3
        Case "zwart"
            kleurcode = 1
        Case Else
            kleurcode = -1
    End Select
    For Each teller In cellen
        If teller.Font.ColorIndex = kleurcode Then
            aantal = aantal + 1
        End If
    Next teller
    tel_kleur = aantal
End Function

als je dan in een cel vb: =tel_kleur(E2:E23;"rood") zet krijg je dan het aantal cel met de rode getallen van E2 to E23.
Klik om te vergroten...

LOL, in het duits...

Is goed geprobeerd, maar denk dat hem eerder iets anders moest hebben. Hij heeft waarschijnlijk de SOM nodig van de getallen in het rood bijvoorbeeld, NIET het AANTAL getallen in het rood.

Misschien kan dit wel al helpen. Als hem diene formule hier goed aanpast, kan het lukken...

Vladimir
S

Suicide Monkey

Legacy Member
Oeps mijn fout :p zal dan eerder zoiets moeten worden:

Code: 
Function tel_kleur(cellen As Range, kleur As Variant) As Integer
    Dim teller As Range, aantal, kleurcode As Integer
    som = 0
    Select Case kleur
        Case "rood"
            kleurcode = 3
        Case "zwart"
            kleurcode = 1
        Case Else
            kleurcode = -1
    End Select
    For Each teller In cellen
        If teller.Font.ColorIndex = kleurcode Then
            som = som + teller.value
        End If
    Next teller
    tel_kleur = som
End Function

Ik heb in de help toch niet direct een functie gevonden om cellen op te tellen volgens de kleur of om de kleur van de tekst weer te geven.
d

daVinci

Legacy Member
De uitkomst van de functie kunt ge best niet als integer definiëren want ge zijt niet zeker dat er alleen maar integers instaan om op te tellen. Dus beter definiëren als double.
V

Vladimirvlad

Legacy Member
Suicide monkey, deze functie werkt niet zenne, heb het ook eens geprobeerd.
V

Vladimirvlad

Legacy Member
Hmm, vrees dat dit niet mogelijk zal zijn...
Zijn de rode getallen negatieve getallen ? Want dan kun je da anders doen...
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan