VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

VBA-Begriff: Property Get-Anweisung (Beispiel)

In diesem Beispiel wird die Property Get-Anweisung verwendet, um eine Eigenschaftsprozedur zu definieren, die den Wert einer Eigenschaft abruft. Die Eigenschaft bestimmt die aktuelle Farbe des Stiftes in Form einer Zeichenfolge.

Dim AktFarbe As Integer
Const SCHWARZ = 0, ROT = 1, GRÜN = 2, BLAU = 3
' Aktuelle Farbe des Stiftes als Zeichenfolge zurückgeben.
Property Get StiftFarbe() As String
    Select Case AktFarbe
        Case ROT
            StiftFarbe = "Rot"
        Case GRÜN
            StiftFarbe = "Grün"
        Case BLAU
            StiftFarbe = "Blau"
    End Select
End Property
' Die folgende Zeile gibt die Farbe des Stiftes durch Aufrufen der 
' Property Get-Prozedur zurück.
Farbe = StiftFarbe()