Grundlagen der Programmierung mit VBA Visual Basic for

Parameter Verwendung
NameSammlung Name des Collection Objektes
Index Eindeutige Nummer oder Bezeichnung
Auf Objekt zugreifen.
Syntax
NameSammlung.Item(Index)
Parameter Verwendung
NameSammlung Name des Collection Objektes
Index Eindeutige Nummer oder Bezeichnung
.Index ist optional. Statt dessen kann die Klammer direkt nach
NameSammlung geschrieben werden.
Anzahl der Objekte.
Syntax
NameSammlung.Count
Parameter Verwendung
Count Liefert die Anzahl der Mitglieder einer Kollection. Typ Long.
Beispiele. Sammlung aller Ampeln.
Bereits im Abschnitt zuvor wurde die Kollektion vereinbart:
Dim Ampeln As New Collection ' Definition einer Sammlung aller Ampeln
Hinzufügen einzelner Ampeln zur Sammlung:
Ampeln.Add AmpelEins, "Ampel_1" ' Hinzufügen zur Sammlung "Ampeln"
' AmpelEins .. Objekt Variable
' Ampel_1 .. eindeutige Bezeichnung, String
Weitere Beispiele zum Umgang mit Sammlungen, sowie andere Dienstprogramme:
Sub LöscheAmpeln() ' alle Ampeln entfernen
Dim i As Long
For i = 1 To Ampeln.Count ' Schleife über alle Objekte
Ampeln(1).Grün.Cut ' Löschen der graf. Objekte
Ampeln(1).Gelb.Cut
Ampeln(1).Rot.Cut
Ampeln(1).Kasten.Cut
Ampeln.Remove 1 ' Entfernen aus der Sammlung
Next
End Sub
Private Function CheckName(AmpelName As String) As Boolean
' Überprüfen aller Objekt Bezeichnungen auf Existenz
Dim Amp As Object
44
CheckName = False ' Voreinstellung: Objekt existiert nicht
For Each Amp In Ampeln
If Amp.Name = AmpelName Then ' Objekt existiert,
CheckName = True ' Rückgabewert "True"
Exit Function ' Funktion verlassen.
End If
Next
End Function