ich habe einen mehrdimensionalen Array:
Werte(1 to n, 1 to z)
In diesem Array möchte ich über alle z-Spalten zählen, wie viele von den n-Werte in der jeweiligen z-Spalte ungleich Null sind. Da fehlt mir jedoch die Idee, wie ich das machen kann.
Sub ArrColCounter1()
Dim arrWerte(1 To n, 1 To z)
Dim n As Integer, z As Integer
Dim iCount As Integer
For n = 1 To UBound(arrWerte, 1)
iCount = 0
For z = 1 To UBound(arrWerte, 2)
If arrWerte(n, z) 0 Then iCount = iCount + 1
Next
Debug.Print "n-Wert " & n & " enthält " & iCount & " z-Werte ungleich 0"
Next
End Sub
Sub ArrColCounter2()
Dim arrWerte(1 To n, 1 To z)
Dim n As Integer, z As Integer
Dim iCount As Integer
For z = 1 To UBound(arrWerte, 2)
iCount = 0
For n = 1 To UBound(arrWerte, 1)
If arrWerte(z, n) 0 Then iCount = iCount + 1
Next
Debug.Print "z-Wert " & z & " enthält " & iCount & " n-Werte ungleich 0"
Next
End Sub
redim AnzahlUnglNullProSpalte(1 to Ubound(Werte, 2))
dim Anzahl as Long
dim z as Long, n as Long
for z = 1 Ubound(werte, 2)
Anzahl = 0
For n = 1 to Ubound(Werte, 1)
Anzahl = Anzahl - (Werte(n, z) 0)
next
AnzahlUnglNullProSpalte(z) = Anzahl
Next
das Ergebnis ist dann in dem Eindimensionalen Array AnzahlUnglNullProSpalte für jede Spalte abgelegt.