vba code telt aantal cellen met tekst

Status
Niet open voor verdere reacties.

joskjos

Gebruiker
Lid geworden
9 sep 2013
Berichten
94
Hallo,

Ik ben op zoek naar de vba code die het aantal cellen in kolom A telt met tekst en de uitkomst ervan toont in cel B1.

Gr,
Jos
 
moet het middels VBA?

Code:
=countif(A:A;"*")
 
Geeft altijd een een foutmelding als ze er niet in staan

Code:
Sub VenA
on error resume next
With sheets(1)
  .[b1] = 0
  .[b1]=.columns(1).specialcells(2,2).count
End with
End sub
 
@VenA, Bedankt voor de code! Is het ook mogelijk als er in een cel enkel een / staat deze cel niet mee te rekenen. staat er bijvoorbeeld; tekst/tekst dan moet hij wel meegerekend worden.
 
Dan moet je ze van het totaal aftrekken.

Code:
[b1]=.columns(1).specialcells(2,2).count - application.countIf(.columns(1), "/")
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan