Excel 2010: worksheetfunction.CountA geeft fout resultaat

[NLKornolio]

Hoi,

Heb een gebruiker met een hoop excell/acces documenten die een macro heeft die een foute output geeft sinds office 2010.
--
Sub tel()

Worksheets("Sheet1").Range("f3").Value = Application.CountA(Worksheets("Sheet1").Range("B1:B15").value)

End Sub

--
Wanneer je .value aan het eind weghaalt geeft deze wel de goede output.

---
Sub tel()

Worksheets("Sheet1").Range("f3").Value = Application.CountA(Worksheets("Sheet1").Range("B1:B15"))

End Sub
----

Denk je probleem opgelost ?
Nee gebruiker heeft een hoop documenten zo opgemaakt en wil weten "waarom" hij dit bij alle documenten moet gaan aanpassen ?
Wat is de verklaring dat die macro niet werk met de .value met office 2010? In office 2007 werkt deze trouwens wel goed

[NLKornolio]

Dus office 2007 werkt het en 2010 niet

[F_J_K]

Worksheets("Sheet1").Range("f3").Value = Application.CountA(Worksheets("Sheet1").Range("B1:B15").Value)

Blijkbaar slim genoeg om van Range("B1:B15").Value een array te maken.

Werkt hier prima in OFF2010. Heb je geen EN->NL taalprobleem?

offtopic:
Ajb de wijzig-knop gebruiken als je binnen 24u iets wilt toevoegen terwijl niemand anders heeft gereageerd.

[Lustucru]

Nah, de implementatie van countA in Excel 2010 is te gulzig en doet niet watje zou verwachten.

code:

Dim a(10)
debug.print application.CountA(a)

Output:
XL2003: 0
XL2010: 11

Gelukkig doet het het op een range wel goed, maar door .value te gebruiken zet je eerst de range om in een array van waarden en dan geeft countA in 2010 gewoon het aantal elementen terug, ongeacht of ze leeg zijn of niet.

[NLKornolio]

Tx
Heb als oplossing de laatste .value weghalen doorgegeven.
Als je geen waarde aan die .value meegeeft neemt ie blijkbaar alle variablen mogelijk ?

Ben totaal niet thuis in macro maar dat lijkt me een beetje de correcte denkwijze ?

[Lustucru]

Als dit de hele macro is dan zie ik 1-2-3 niet de meerwaarde boven de worksheetfunctie direct in F3 te plakken.

[Wim-Bart]

Heel vreemd, net even met Excel 2013 getest, daar werkt:


Worksheets("Sheet1").Range("f3").Value = Application.CountA(Worksheets("Sheet1").Range("B1:B15").value)

Als een trein.

Hij is alleen wel picky op de naam van de Sheet.

[Lustucru]

[b]Wim-Bart schreef op donderdag 13 juni 2013 @ 00:14:[/
Als een trein.

Italiaans modelletje toevallig?

Het werkt wel, maar geeft het ook het gewenste resultaat?

[F_J_K]

Idd: of je maakt dezelfde fout als domme-ik door niet een paar cellen in het bereik leeg te laten