Office: Array länge abfragen in VBA

User · 29. Januar 2008

Hallo !

Kann mir jemand sagen wie ich die länge eines array abfragen kann?

:)

Klaus-Dieter · 31. Januar 2008

Hallo,

versuche es mal mit UBound(DeinArray), DeinArray ersetzt du durch den tatsächlichen Namen.

jinx · 1. Februar 2008

Moin, Klaus-Dieter,

darf ich dieser Antwort nur mit UBound widersprechen?

Code:

Sub KD1()
Dim myArray As Variant
myArray = Array("1", "2", "3")
Debug.Print UBound(myArray)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

weist bei mir 2 aus, da das Array bei 0 beginnt - die Länge ist aber unzweifelhaft 3... *wink.gif*

Code:

Sub KD2()
Dim myArray(4 To 6)
myArray(4) = 6
myArray(6) = 8
Debug.Print UBound(myArray)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

weist den oberen Wert als 6 aus, obwohl nur 2 Werte enthalten sind und die Länge 3 ist.

Code:

Sub KD1a()
Dim myArray As Variant
myArray = Array("1", "2", "3")
Debug.Print UBound(myArray) - LBound(myArray) + 1
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Sub KD2a()
Dim myArray(4 To 6)
myArray(4) = 6
myArray(6) = 8
Debug.Print UBound(myArray) - LBound(myArray) + 1
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

liefern die tatsächliche Länge der Arrays,

Code:

Sub KD1b()
Dim myArray As Variant
myArray = Array("1", "2", "3")
Debug.Print WorksheetFunction.CountA(myArray)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Sub KD2b()
Dim myArray(4 To 6)
myArray(4) = 6
myArray(6) = 8
Debug.Print WorksheetFunction.Count(myArray)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

die Anzahl der Werte (entweder bezogen auf Werte oder Zahlen - je nach Wunsch).

Klaus-Dieter · 1. Februar 2008

Hallo jinx,

immer noch der Alte. *biggrin.gif*

Code:

Sub KD0()
Dim myArray As Variant
Dim intAnz As Integer
myArray = Array("1", "2", "3")
For intAnz = LBound(myArray) To UBound(myArray)
Debug.Print myArray(intAnz)
Next intAnz
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Array länge abfragen in VBA

Array länge abfragen in VBA

Array länge abfragen in VBA

Array länge abfragen in VBA

Array länge abfragen in VBA - Similar Threads - Array länge abfragen

Mittelwert aus mehreren Spalten als dynamisches Array

Adressen in eine Zelle bei Übereinstimmung eindeutiger Werte einer anderen Spalte

Zahlendubletten im Array

Array aus Excel Tabelle einlesen Word VBA

Summenteilergebnis eines Arrays als Array darstellen

Formel bei Veränderung von dynamischem Array "mitziehen"?

Array-Funktion mit VBA in Zelle schreiben