Getallen tellen

[Frankie1983]

Hallo allemaal.

Zit met het volgende probleem en kom er echt niet meer uit.
Ik wil een programmatje schrijven wat in excel het aantal waarden in een kolom noteert.
De lengte van deze kolom verandert iedere keer.

als is bijvoorbeeld het volgende rijtje heb:

1.2
1
1.4
0.8
0.6
0.7

dan moet het programmatje het aantal getallen noteren tussen de 0.5 en 1


Alvast bedankt

 

[Wigi]

Zo?

MsgBox WorksheetFunction.CountIf(Range("A1").CurrentRegion, ">0.5") - WorksheetFunction.CountIf(Range("A1").CurrentRegion, ">=1")

Ik ben begonnen met de getallen in A1.

Wigi

 

[Frankie1983]

Bedankt!!

Met die regel code hep je me al erg geholpen.
Ik zit nu alleen nog met een laatste vraag.

De cel waar het programmatje moet starten wil ik zelf opgeven, en waar die moet eindigen.

Zelf probeerde ik het met 2 textvakken zoals dit

Dim begin,eind as string

Private Sub CommandButton1_Click()
begin=textbox_begin
eind =textbox_eind
MsgBox WorksheetFunction.CountIf(Range("begin").CurrentRegion, ">0.5") - WorksheetFunction.CountIf(Range("eind").CurrentRegion, ">=1")
End Sub

Maar dit wil helaas niet werken

 

[Wigi]

Geef eens een voorbeeld van begin en eind. Ik begrijp niet wat die CurrentRegion er dan nog bij komt doen.

 

[Wigi]

Is het dit wat je bedoelt?

Private Sub CommandButton1_Click()
Dim rngGetallen As Range
Set rngGetallen = Application.InputBox("Duid het bereik aan.", "Bereik aanduiden", Range("A1").Address, Type:=8)
MsgBox WorksheetFunction.CountIf(rngGetallen, ">0.5") - WorksheetFunction.CountIf(rngGetallen, ">=1")
End Sub

Wigi

 

[Frankie1983]

Bedankt!!

Met die regel code hep je me al erg geholpen.
Ik zit nu alleen nog met een laatste vraag.

De cel waar het programmatje moet starten wil ik zelf opgeven, en waar die moet eindigen.

Zelf probeerde ik het met 2 textvakken zoals dit

Dim begin,eind as string

Private Sub CommandButton1_Click()
begin=textbox_begin
eind =textbox_eind
MsgBox WorksheetFunction.CountIf(Range("begin").CurrentRegion, ">0.5") - WorksheetFunction.CountIf(Range("eind").CurrentRegion, ">=1")
End Sub

Maar dit wil helaas niet werken

 

[Wigi]

Zet jij exact hetzelfde bericht hier nu 2 keer neer ?