Aantal tellen in VBA-code

[EdjeVis]

Aantal tellen mbv VBA-code

Goeiemiddag,

Wie heeft de oplossing voor de vraag : hoe luidt in VBA-code de regel om in één keer te weten hoe vaak een bepaalde tekst in een bepaalde kolom voor komt? Ik zoek al een tijd maar kom er niet uit.

Daarnaast misschien ook de code om in één keer alle regels te verwijderen die in een bepaalde kolom een bepaalde tekst bevatten.

Alvast bedankt!

 

[Ginger]

Edjevis, Op je 1e vraag kan ik je zo ff vlug een antwoordje geven... Doe dit met de worksheet function 'Countif'. In code zou het er dan zo uit kunnen zien

Sub TelAantal()
Dim iAantal As Integer

    With Application
        iAantal = .WorksheetFunction.CountIf(Range("A:A"), .InputBox("Wat zoek je?", "Zoek en tel", , , , , , 3))
    End With
    
    MsgBox "Het gezochte komt totaal " & iAantal & " keer voor!", vbOKOnly, "Resultaat"

End Sub

Ik ga d'r hierbij gemakshalve van uit dat de kolom waarin je zoekt, kolom A is....

Groet, Leo

 

[Wigi]

Voor het tweede: hier staat er gelijkaardige code

http://www.contextures.on.ca/xlautofilter03.html#Copy

maar daar is het kopiëren in plaats van deleten. Dus een beetje aanpassen.

Wigi

 

[EdjeVis]

Heren, beiden hartelijk bedankt voor jullie reactie, hier kan ik weer wat mee!
Maar uh, Wigi, waar bleef je antwoord zo lang

Overigens wordt er bij die oplossing zo te zien gebruikt gemaakt van het autofilter, waarbij alle (op dat moment) zichtbare regels worden verwijderd. Het is niet mogelijk om zonder dat autofilter gewoon te zeggen : gooi alle regels weg die in kolom X waarde Y hebben staan?

 

[Wigi]

Het is niet mogelijk om zonder dat autofilter gewoon te zeggen : gooi alle regels weg die in kolom X waarde Y hebben staan?

Neen, dat kan niet.

 

[EdjeVis]

oké, bedankt voor het uitsluitsel!

 

[DEWCAP]

Hallo,

Heb deze code ook even gebruikt maar ik krijg steeds 0 als resultaat. Ik zoek in de kolom N dus ik veronderstel dat ik Range("N:N") moet gebruiken?

2de vraagje: Voor mij zou het beter zijn als ik het gevonden resultaat in een bepaalde cel plaats, laat ons zeggen R1. Is dit ook mogelijk? Bedankt voor de hulp!

DEWCAP

 

[Ginger]

Dewcap, Tuurlijk kan dat...

Sub TelAantal()
Dim iAantal As Integer

    With Application
        iAantal = .WorksheetFunction.CountIf(Range("N:N"), .InputBox("Wat zoek je?", "Zoek en tel", , , , , , 3))
    End With
    
    Range("R1").value = iAantal 

End Sub

Groet, Leo

 

[DEWCAP]

Bedankt voor het antwoord. Het resultaat wordt inderdaad in R1 geplaatst, maar is steeds 0...

Ik zoek in een kolom met waarden FALSE en TRUE en zou het aantal TRUE in R1 willen hebben.

 

[DEWCAP]

Heb even zelf een macro probere maken en ik heb dit bekomen:

Sub test()

Range ("R1").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(C[-4], ""TRUE"")"

End Sub



Ik vrees echter dat dit niet echt een correct manier van werken is?

 

[Wigi]

Sub test()
      Range("R1").Formula = "=COUNTIF(" & Columns("N").AddressLocal(0, 0) & ",TRUE)"
End Sub

Wigi

 

[DEWCAP]

Dit werkt Wigi! Hartelijk bedankt!