Function myCountA(myArr, myColumn)
Dim iCounter As Long
For iCounter = LBound(myArr) To UBound(myArr)
myCountA = myCountA - myarrr(iCounter, myColumn) ""
Next
End Function
Um die Anzahl der nicht leeren Werte in einem Array in Excel VBA zu ermitteln, kannst du folgende Schritte ausführen:
Erstelle ein neues VBA-Modul:
ALT + F11, um den VBA-Editor zu öffnen.Einfügen und wähle Modul.Definiere das Array:
Dim meinArray() As Variant
meinArray = Array(1, "", 3, 4, "")Zähle die nicht leeren Werte:
LBound und UBound, um die Werte zu zählen:
Function CountNonEmptyValues(myArr As Variant) As Long
Dim count As Long
Dim i As Long
count = 0
For i = LBound(myArr) To UBound(myArr)
If myArr(i) <> "" Then
count = count + 1
End If
Next i
CountNonEmptyValues = count
End FunctionAufruf der Funktion:
Sub TestCount()
Dim result As Long
result = CountNonEmptyValues(meinArray)
MsgBox "Anzahl der nicht leeren Werte: " & result
End SubFehler: "Typ nicht definiert"
Dim meinArray() As Variant.Fehler: Schleife durchläuft nicht das gesamte Array
LBound und UBound korrekt verwendet werden, um die Grenzen des Arrays zu ermitteln.Fehler: Rückgabewert ist nicht korrekt
If myArr(i) <> "") ordnungsgemäß formuliert sind.Eine weitere Möglichkeit, die Anzahl der Elemente in einem Array zu ermitteln, ist die Verwendung von Application.CountA für eindimensionale Arrays. Zum Beispiel:
Dim count As Long
count = Application.CountA(meinArray)Für mehrdimensionale Arrays kannst du eine Schleife über die gewünschten Spalten verwenden, wie im folgenden Beispiel:
Function CountColumnValues(myArr As Variant, myColumn As Long) As Long
Dim count As Long
Dim i As Long
count = 0
For i = LBound(myArr) To UBound(myArr)
If myArr(i, myColumn) <> "" Then
count = count + 1
End If
Next i
CountColumnValues = count
End FunctionEindimensionales Array zählen:
Dim testArray() As Variant
testArray = Array("A", "", "C", "D")
MsgBox CountNonEmptyValues(testArray) ' Gibt 3 zurückZählen in einem mehrdimensionalen Array:
Dim multiArray(1 To 3, 1 To 2) As Variant
multiArray(1, 1) = "A"
multiArray(1, 2) = ""
multiArray(2, 1) = "C"
multiArray(2, 2) = "D"
MsgBox CountColumnValues(multiArray, 1) ' Gibt 3 zurückUBound und LBound, um die Größe eines Arrays dynamisch zu ermitteln.1. Was ist ein Array in Excel VBA?
Ein Array ist eine Datenstruktur, die es ermöglicht, mehrere Werte unter einem einzigen Variablennamen zu speichern. In VBA kannst du eindimensionale und mehrdimensionale Arrays verwenden.
2. Wie kann ich die Größe eines Arrays in VBA ermitteln?
Du kannst die Funktionen LBound und UBound verwenden, um die untere und obere Grenze eines Arrays zu bestimmen.
3. Gibt es eine eingebaute Funktion, um die Anzahl der Elemente in einem Array zu zählen?
Nein, es gibt keine direkte eingebaute Funktion. Du musst eine eigene Funktion schreiben, um die Anzahl der nicht leeren Werte zu zählen, wie in den obigen Beispielen gezeigt.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen