Collection - Versionsgeschichte

Pwania: /* Prüfen, ob ein Elementvorhanden ist */

2025-03-14T08:46:35Z

Prüfen, ob ein Elementvorhanden ist

← Nächstältere Version		Version vom 14. März 2025, 08:46 Uhr
Zeile 49:		Zeile 49:


	==== Prüfen, ob ein ~~Elementvorhanden~~ ist ====		==== Prüfen, ob ein Element vorhanden ist ====

	Wenn man zum Abrufen eines Wertes die index Eigenschft verwendet, läuft man selten Gefahr, dass ein Element nicht exstiert, solange der Index sich im erlaubten Bereich von 1 bis Count befindet.		Wenn man zum Abrufen eines Wertes die index Eigenschft verwendet, läuft man selten Gefahr, dass ein Element nicht exstiert, solange der Index sich im erlaubten Bereich von 1 bis Count befindet.

Pwania: /* Elemente abfragen */

2025-03-14T08:46:11Z

Elemente abfragen

@@ Zeile 47: / Zeile 47: @@
       Debug.Print colList.Item(lngIndex)
   Next lngIndex
 ==== Wert überschreiben ====

Pwania am 13. März 2025 um 16:54 Uhr

2025-03-13T16:54:36Z

← Nächstältere Version		Version vom 13. März 2025, 16:54 Uhr
Zeile 1:		Zeile 1:
	[[Category:vba-wiki]]		[[Category:vba-wiki]]
	Eine Auflistung (Collection) nimmt eine Liste von Werten entgegen. Diese müssen nicht zwingend den gleichen Datentyp haben, Sie können also z. B. Zahlen und Zeichenketten mischen. Allerdings ist es meistens sinnvoll, eine Liste mit verwandten Elementen zu füllen, welche dann zwangsweise den gleichen Datentyp haben.		Eine Auflistung (Collection) nimmt eine Liste von Werten entgegen. Diese müssen nicht zwingend den gleichen Datentyp haben, Sie können also z. B. Zahlen und Zeichenketten mischen. Allerdings ist es meistens sinnvoll, eine Liste mit verwandten Elementen zu füllen, welche dann zwangsweise den gleichen Datentyp haben.

			'''Bitte beachten:''' Collections können '''nicht''' Elemente des benutzerdefinierten Datentyps '''Type''' aufnehmen!

	== Arbeiten mit Collections ==		== Arbeiten mit Collections ==

Pwania: /* Schlüssel ('Key') */

2023-02-10T10:10:37Z

Schlüssel ('Key')

← Nächstältere Version		Version vom 10. Februar 2023, 10:10 Uhr
Zeile 142:		Zeile 142:
	'''Bitte Beachten:''' Jeder Schlüssel muss innerhalb einer Auflistung eindeutig sein, sonst erscheint die Fehlermeldung 'Laufzeitfehler 457 - Dieser Schlüssel ist bereits einem Element der Auflistung zugeordnet'.		'''Bitte Beachten:''' Jeder Schlüssel muss innerhalb einer Auflistung eindeutig sein, sonst erscheint die Fehlermeldung 'Laufzeitfehler 457 - Dieser Schlüssel ist bereits einem Element der Auflistung zugeordnet'.

	~~Allerdings ist die Verwendung von Schlüsseln nur dann sinnvoll~~, ~~wenn sie aus Elementen aufgebaut~~ ist, ~~die Ihnen zur Programmierzeit schon bekannt sind~~.		'''Wichtig:''' Der Schlüssel kann zwar verwendet werden, um ein Element direkt anzusprechen, aber es ist nicht möglich, den Index eines Elementes mithilfe des Schlüssels zu ermitteln. Dies bedeutet auch, dass man nicht ein Element der Auflistung nur mithilfe des Schlüssels entfernen kann!

	== Beispiele ==		== Beispiele ==

Pwania: /* Wert überschreiben */

2023-02-10T10:07:18Z

Wert überschreiben

← Nächstältere Version		Version vom 10. Februar 2023, 10:07 Uhr
Zeile 60:		Zeile 60:
	<span style="Color:blue">End Sub</span>		<span style="Color:blue">End Sub</span>

	''Lösung:''		''Lösung:'' Folgende Beispielfunktion ersetzt den gewünschten Wert, indem Sie den ursprünglichen Eintrag löscht und an gleicher Stelle den neuen Wert hinzufügt:
	Folgende Beispielfunktion ersetzt den gewünschten Wert, indem Sie den ursprünglichen Eintrag löscht und an gleicher Stelle den neuen Wert hinzufügt:

	<span style="Color:blue">Public Function </span>ReplaceItemInCollection<span style="Color:gray">(</span><span style="Color:blue">ByVal </span>colInCollection<span style="Color:blue"> As </span>Collection<span style="Color:gray">,</span><span style="Color:blue"> ByVal </span>strNewItem<span style="Color:blue"> As String</span><span style="Color:gray">,</span><span style="Color:blue"> ByVal </span>lngItemIndex<span style="Color:blue"> As Long</span><span style="Color:gray">)</span><span style="Color:blue"> As </span>Collection		<span style="Color:blue">Public Function </span>ReplaceItemInCollection<span style="Color:gray">(</span><span style="Color:blue">ByVal </span>colInCollection<span style="Color:blue"> As </span>Collection<span style="Color:gray">,</span><span style="Color:blue"> ByVal </span>strNewItem<span style="Color:blue"> As String</span><span style="Color:gray">,</span><span style="Color:blue"> ByVal </span>lngItemIndex<span style="Color:blue"> As Long</span><span style="Color:gray">)</span><span style="Color:blue"> As </span>Collection
Zeile 96:		Zeile 95:
	Debug<span style="Color:gray">.</span>Print colTest<span style="Color:gray">.</span>Item<span style="Color:gray">(2)</span> <span style="Color:green">' Second Item</span>		Debug<span style="Color:gray">.</span>Print colTest<span style="Color:gray">.</span>Item<span style="Color:gray">(2)</span> <span style="Color:green">' Second Item</span>
	<span style="Color:blue">End Sub</span>		<span style="Color:blue">End Sub</span>

			'''Beachte:''' Der Schlüssel eines Eintrags kann nicht verwendet werden, um seinen Index zu finden (siehe [[#Schlüssel_('Key')]])

	==== Als Rückgabewert einer Funktion ====		==== Als Rückgabewert einer Funktion ====

Pwania am 28. Januar 2023 um 00:30 Uhr

2023-01-28T00:30:26Z

← Nächstältere Version		Version vom 28. Januar 2023, 00:30 Uhr
Zeile 1:		Zeile 1:
			[[Category:vba-wiki]]
	Eine Auflistung (Collection) nimmt eine Liste von Werten entgegen. Diese müssen nicht zwingend den gleichen Datentyp haben, Sie können also z. B. Zahlen und Zeichenketten mischen. Allerdings ist es meistens sinnvoll, eine Liste mit verwandten Elementen zu füllen, welche dann zwangsweise den gleichen Datentyp haben.		Eine Auflistung (Collection) nimmt eine Liste von Werten entgegen. Diese müssen nicht zwingend den gleichen Datentyp haben, Sie können also z. B. Zahlen und Zeichenketten mischen. Allerdings ist es meistens sinnvoll, eine Liste mit verwandten Elementen zu füllen, welche dann zwangsweise den gleichen Datentyp haben.

Pwania: /* Wert überschreiben */

2020-04-08T10:18:53Z

Wert überschreiben

← Nächstältere Version		Version vom 8. April 2020, 10:18 Uhr
Zeile 82:		Zeile 82:
	<span style="Color:blue"> End Select		<span style="Color:blue"> End Select
	End Function</span>		End Function</span>


	<span style="Color:blue">Private Sub </span>OverwriteItem<span style="Color:gray">()</span>		<span style="Color:blue">Private Sub </span>OverwriteItem<span style="Color:gray">()</span>
	<span style="Color:blue"> Dim </span>colTest<span style="Color:blue"> As </span>Collection		<span style="Color:blue"> Dim </span>colTest<span style="Color:blue"> As </span>Collection

Pwania: /* Wert überschreiben */

2020-04-08T10:18:11Z

Wert überschreiben

@@ Zeile 82: / Zeile 82: @@
      <span style="Color:blue"> End Select
   End Function</span>
 ==== Als Rückgabewert einer Funktion ====

Pwania: /* Beispiele */

2020-04-08T10:13:04Z

Beispiele

← Nächstältere Version		Version vom 8. April 2020, 10:13 Uhr
Zeile 153:		Zeile 153:
	Hier wird eine Collection in eine Liste umgewandelt:		Hier wird eine Collection in eine Liste umgewandelt:

	Public Function CollectionToList(ByVal colCollection As Collection, ByVal strDelimiter As String) As String		<span style="Color:blue">Public Function </span>CollectionToList<span style="Color:gray">(</span><span style="Color:blue">ByVal </span>colCollection<span style="Color:blue"> As </span>Collection<span style="Color:gray">,</span><span style="Color:blue"> ByVal </span>strDelimiter<span style="Color:blue"> As String</span><span style="Color:gray">)</span><span style="Color:blue"> As String</span>
	Dim lngIndex As Long		<span style="Color:blue"> Dim </span>lngIndex<span style="Color:blue"> As Long</span>

	If colCollection Is Nothing Then		<span style="Color:blue"> If </span>colCollection<span style="Color:blue"> Is </span>Nothing<span style="Color:blue"> Then</span>
	Exit Function		<span style="Color:blue"> Exit Function</span>
	End If		<span style="Color:blue"> End If</span>
	If colCollection.Count < 1 Then		<span style="Color:blue"> If </span>colCollection<span style="Color:gray">.</span>Count <span style="Color:gray"><</span> <span style="Color:gray">1</span><span style="Color:blue"> Then</span>
	Exit Function		<span style="Color:blue"> Exit Function</span>
	End If		<span style="Color:blue"> End If</span>
	CollectionToList = colCollection.Item(1) <span style="~~color~~:green">' Erstes Element wird ohne Trennzeichen hinzugefügt</span>		CollectionToList <span style="Color:gray">=</span> colCollection<span style="Color:gray">.</span>Item<span style="Color:gray">(1)</span> <span style="Color:green">' Erstes Element wird ohne Trennzeichen hinzugefügt</span>
	For lngIndex = 2 To colCollection.Count		<span style="Color:blue"> For </span>lngIndex <span style="Color:gray">=</span> <span style="Color:gray">2</span><span style="Color:blue"> To </span>colCollection<span style="Color:gray">.</span>Count
	CollectionToList = CollectionToList & strDelimiter & colCollection.Item(lngIndex)		CollectionToList <span style="Color:gray">=</span> CollectionToList & strDelimiter & colCollection<span style="Color:gray">.</span>Item<span style="Color:gray">(</span>lngIndex<span style="Color:gray">)</span>
	Next lngIndex		<span style="Color:blue"> Next </span>lngIndex<span style="Color:blue">
	End Function		End Function</span>

	== Alternativen ==		== Alternativen ==

Pwania: /* Wert überschreiben */

2020-04-08T10:12:29Z

Wert überschreiben

← Nächstältere Version		Version vom 8. April 2020, 10:12 Uhr
Zeile 59:		Zeile 59:
	<span style="Color:blue">End Sub</span>		<span style="Color:blue">End Sub</span>

	;Lösung		''Lösung:''
	Folgende Beispielfunktion ersetzt den gewünschten Wert, indem Sie den ursprünglichen Eintrag löscht und an gleicher Stelle den neuen Wert hinzufügt:		Folgende Beispielfunktion ersetzt den gewünschten Wert, indem Sie den ursprünglichen Eintrag löscht und an gleicher Stelle den neuen Wert hinzufügt: