Array: Anzahl der Werte die größer sind als null!

themadman

Mitglied
Servus Leute,

habe ein anliegen und zwar möchte wissen wieviele einträge in meinem Array (1 bis 12 z.B.) größer sind als NULL und diese anzahl soll dann in einer variable gespeichert werden.

Bsp:
12
3
0
9
0
14

in diesem array wäre also dann 4 Einträge größer als NULL.

Wie bekomme ich das im programm hin

Hoffe ihr könnt mir helfen. Ich hab die ahnung das mit ner schleife durchlaufen zu lassen doch hab ich im moment echt keine idee wie.

danke schon mal im vorraus.

MfG
Mike
 
Ciao,
kann es leider nicht testen, sollte aber so funktionieren:
Code:
Dim i As Integer
Dim arrX() As Integer
Dim intZaehler As Integer

i = 0
Do while i < 12
  if arrX(i) > 0 then
    intZaehler = intZaehler + 1
    i = i + 1
  End If
MsgBox intZaehler
Grüsse
 
Zurück