Array - Versionsgeschichte

Pwania am 28. Januar 2023 um 00:30 Uhr

2023-01-28T00:30:16Z

← Nächstältere Version		Version vom 28. Januar 2023, 00:30 Uhr
Zeile 1:		Zeile 1:
			[[Category:vba-wiki]]
	== Arrays kurz vorgestellt ==		== Arrays kurz vorgestellt ==

Pwania: /* Eigene Lösungen für Arrays */

2019-06-24T07:34:31Z

Eigene Lösungen für Arrays

Änderungen zeigen

Pwania: /* Werte aus einem Array in einen Zellenbereich schreiben */

2019-06-24T07:14:08Z

Werte aus einem Array in einen Zellenbereich schreiben

← Nächstältere Version		Version vom 24. Juni 2019, 07:14 Uhr
Zeile 412:		Zeile 412:
	strValues<span style="Color:gray">(2,</span> <span style="Color:gray">0)</span> <span style="Color:gray">=</span> <span style="Color:gray">"Unten links"</span>		strValues<span style="Color:gray">(2,</span> <span style="Color:gray">0)</span> <span style="Color:gray">=</span> <span style="Color:gray">"Unten links"</span>
	strValues<span style="Color:gray">(2,</span> <span style="Color:gray">4)</span> <span style="Color:gray">=</span> <span style="Color:gray">"Ende"</span>		strValues<span style="Color:gray">(2,</span> <span style="Color:gray">4)</span> <span style="Color:gray">=</span> <span style="Color:gray">"Ende"</span>
	Range<span style="Color:gray">("A1:E3").</span>Value <span style="Color:gray">=</span> strValues <span style="Color:green">' identisches Ergebnis zum Beispiel oben (1-basierend)</span>		Range<span style="Color:gray">("A1:E3").</span>Value <span style="Color:gray">=</span> strValues <span style="Color:green">' identisches Ergebnis zum Beispiel oben (1-basierend)</span>

	Hierbei bitte beachten:		Hierbei bitte beachten:

Pwania: /* Werte aus einem Array in einen Zellenbereich schreiben */

2019-06-24T07:13:52Z

Werte aus einem Array in einen Zellenbereich schreiben

@@ Zeile 389: / Zeile 389: @@
 === Werte aus einem Array in einen Zellenbereich schreiben ===
-Beim Schreiben von Daten aus einem Array in einen Zellenbereich muss nicht zwingend ein Variant-Array verwendet werden, weil Excel in seine Zellen beliebige Daten aufnehmen kann. Bitte beachten Sie trotzdem, dass, wenn Sie zum Beispiel Zahlenwerte in Excel Zellen schreiben, die als Datumswerte formatiert sind, Excel diese Werte als Datumsangaben darstellt. Das Zellenformat hat immer Vorrang. Dim strValues() As String ReDim strValues(1 To 3, 1 To 5) ' Eins-basierend strValues(1, 1) = "Anfang" strValues(1, 5) = "Oben rechts" strValues(2, 3) = "Mitte" strValues(3, 1) = "Unten links" strValues(3, 5) = "Ende" Range("A1:E3").Value = strValues bzw. Null-basierend: Dim strValues() As String ReDim strValues(2, 4) ' Null-basierend strValues(0, 0) = "Anfang" strValues(0, 4) = "Oben rechts" strValues(1, 2) = "Mitte" strValues(2, 0) = "Unten links" strValues(2, 4) = "Ende" Range("A1:E3").Value = strValues Hierbei bitte beachten:
+Beim Schreiben von Daten aus einem Array in einen Zellenbereich muss nicht zwingend ein Variant-Array verwendet werden, weil Excel in seine Zellen beliebige Daten aufnehmen kann.
 * Das Array, aus dem die Daten stammen, sollte zweidimensional angelegt sein. Die erste Dimension enthält die Zeilen, die zweite die Spalten.
 * Die Daten aus einem eindimensionalen Array werden ausschließlich als Daten einer Zeile verstanden.

Pwania: /* Werte aus einem Zellenbereich in ein Array einlesen */

2019-06-24T07:10:16Z

Werte aus einem Zellenbereich in ein Array einlesen

← Nächstältere Version		Version vom 24. Juni 2019, 07:10 Uhr
Zeile 374:		Zeile 374:
	=== Werte aus einem Zellenbereich in ein Array einlesen ===		=== Werte aus einem Zellenbereich in ein Array einlesen ===

	Hierzu muss ein Variant-Array verwendet werden, weil Excel in seinen Zellen verschiedene Datentypen aufnehmen kann (Text, Zahlen, Datumsangaben, ...). Es wäre zwar möglich, die Werte aus jeder Zelle einzeln auszulesen und dann in den vom Array erwarteten Datentyp umzuwandeln, dies kann jedoch nicht für ein komplettes Array in einem Schritt erfolgen. Dim varValues() As Variant varValues = Selection.Value ' bzw. varValues = Range("A1:F4").Value Hierbei bitte beachten:		Hierzu muss ein Variant-Array verwendet werden, weil Excel in seinen Zellen verschiedene Datentypen aufnehmen kann (Text, Zahlen, Datumsangaben, ...).

			Es wäre zwar möglich, die Werte aus jeder Zelle einzeln auszulesen und dann in den vom Array erwarteten Datentyp umzuwandeln, dies kann jedoch nicht für ein komplettes Array in einem Schritt erfolgen.

			<span style="Color:blue">Dim </span>varValues<span style="Color:gray">()</span><span style="Color:blue"> As Variant </span>

			varValues <span style="Color:gray">=</span> Selection<span style="Color:gray">.</span>Value <span style="Color:green">' bzw. varValues = Range("A1:F4").Value</span>

			Hierbei bitte beachten:
	* Die 'Value'-Eigenschaft gibt, obwohl sie in der Einzahl erscheint ('Value', nicht 'Values'!), im Zusammenhang mit einem Zellbereich alle Werte der einzelnen Zellen zurück.		* Die 'Value'-Eigenschaft gibt, obwohl sie in der Einzahl erscheint ('Value', nicht 'Values'!), im Zusammenhang mit einem Zellbereich alle Werte der einzelnen Zellen zurück.
	* Das Array wird automatisch von Excel korrekt dimensioniert.		* Das Array wird automatisch von Excel korrekt dimensioniert.

Pwania: /* IsArray */

2019-06-24T07:09:05Z

IsArray

@@ Zeile 358: / Zeile 358: @@
 === IsArray ===
-Die IsArray-Funktion prüft, ob der Inhalt einer Variablen ein Datenfeld ist. Diese Prüfung ist insbesondere dann sinnvoll, wenn die Variable ein Variant ist und deshalb nicht zwingend ein Array enthalten könnte. Dabei ist es unerheblich, ob das Array schon dimensioniert wurde bzw. Elemente enthält: Dim strText() As String Debug.Print IsArray(strText) ' True == Arrays und Excel Arbeitsblätter== Arrays können verwendet werden, um direkt auf Excel Tabelleninhalte zuzugreifen bzw. diese zu ändern. Dies kann zu deutlichen Verbesserungen der Laufzeit einer Lösung führen, weil dann nicht mehr auf die einzelnen Zellen eines Bereichs zugegriffen werden muss, sondern alle Zugriffe direkt auf den Hauptspeicher erfolgen können.
+Die IsArray-Funktion prüft, ob der Inhalt einer Variablen ein Datenfeld ist.
 === Werte aus einem Zellenbereich in ein Array einlesen ===

Pwania: /* Rückgabewert einer Funktion */

2019-06-24T07:07:02Z

Rückgabewert einer Funktion

@@ Zeile 234: / Zeile 234: @@
 === Rückgabewert einer Funktion ===
-Die runden Klammern werden in diesem Fall '''hinter''' den Datentyp gesetzt. In einer Funktion, welche ein Array zurückgeben soll, müssen Sie ein eigenes Rückgabe-Array innerhalb der Funktion füllen und dieses dann mithilfe des Funktionsnamens übergeben: Private Function LoadData() As String() Dim strReturn() As String ' Rückgabe-Array ReDim strReturn(2) strReturn(0) = "Maren" strReturn(1) = "Monika" strReturn(2) = "Melanie" LoadData = strReturn End Function Private Sub Test() PrintArrayElements LoadData() End Sub '''Bitte beachten:''' Eine Array-Funktion kann ausschließlich dynamisch deklariert werden. Folgendes führt zu einem Kompilierfehler: Private Function LoadData() As String(3) '''Wichtig:''' Wenn Sie ein Array aus einer Funktion in eine Variable übernehmen, darf diese Variable '''nicht''' ein statisches Array sein! Begründung: VBA darf das statische Array nicht beliebig erweitern oder verringern, kann jedoch bei der Funktion, welche ein Array zurückgibt, nicht prüfen, ob es mit der Größe des statisch vorgegebenen Array übereinstimmt. Folgendes klappt daher nicht: Private Sub Test() Dim strData(8) As String strData = LoadData() ' Die LoadData-Funktion gibt ein dynamisches Array zurück :-( PrintArrayElements strData End Sub Siehe auch [[Fehlermeldungen#Keine_Zuweisung_an_Datenfeld_m.C3.B6glich|Fehlermeldungen: Keine Zuweisung an Datenfeld möglich]]!
+Die runden Klammern werden in diesem Fall '''hinter''' den Datentyp gesetzt.
 == Mehrdimensionale Arrays ==

Pwania: /* Arrays als Übergabeparameter */

2019-06-24T07:03:38Z

Arrays als Übergabeparameter

@@ Zeile 216: / Zeile 216: @@
 === Arrays als Übergabeparameter ===
-Die Übergabe eines Arrays an eine Prozedur erfolgt wie bei der Dim-Anweisung (runde Klammern nach dem Variablennamen). Eine statische Dimensionierung ist hier nicht möglich! '''Bitte beachten:''' Arrays können '''NICHT''' 'ByVal' übergeben werden! Private Sub PrintArrayElements('''ByRef''' strArray() As String) Dim lngLow As Long, lngUpper As Long, lngIndex As Long lngLow = LBound(strArray) lngUpper = UBound(strArray) For lngIndex = lngLow To lngUpper Debug.Print strArray(lngIndex) Next lngIndex End Sub
+Die Übergabe eines Arrays an eine Prozedur erfolgt wie bei der Dim-Anweisung (runde Klammern nach dem Variablennamen).
 === Rückgabewert einer Funktion ===

Pwania: /* Arrays zurücksetzen: Erase */

2019-06-24T07:01:57Z

Arrays zurücksetzen: Erase

← Nächstältere Version		Version vom 24. Juni 2019, 07:01 Uhr
Zeile 208:		Zeile 208:
	Der 'Erase'-Befehl setzt ein Array zurück.		Der 'Erase'-Befehl setzt ein Array zurück.
	* Bei statischen Arrays werden alle Elemente auf den Standardwert gesetzt.		* Bei statischen Arrays werden alle Elemente auf den Standardwert gesetzt.
	* Bei dynamischen Arrays werden sämtliche Elemente gelöscht. Erase strArray		* Bei dynamischen Arrays werden sämtliche Elemente gelöscht.

			Erase strArray

	== Arrays in Prozeduren übergeben und aus Funktionen erhalten ==		== Arrays in Prozeduren übergeben und aus Funktionen erhalten ==

Pwania: /* Daten aus einem Array auslesen */

2019-06-24T07:01:27Z

Daten aus einem Array auslesen

← Nächstältere Version		Version vom 24. Juni 2019, 07:01 Uhr
Zeile 200:		Zeile 200:
	== Daten aus einem Array auslesen ==		== Daten aus einem Array auslesen ==

	Die einzelnen Speicherplätze werden mit Angabe des Speicherindexes wieder ausgelesen: Debug.Print strArray(0) ' Gibt das erste Element im Direktbereich aus		Die einzelnen Speicherplätze werden mit Angabe des Speicherindexes wieder ausgelesen:

			Debug<span style="Color:gray">.</span>Print strArray<span style="Color:gray">(0)</span> <span style="Color:green">' Gibt das erste Element im Direktbereich aus</span>

	== Arrays zurücksetzen: Erase ==		== Arrays zurücksetzen: Erase ==