Oh wie peinlich, hätte mir auffallen müssen!
Habe nun das "String" in "Integer" geändert, das Problem besteht aber immer noch.
Der aktuelle Code:
Dim baujahr As Integer
Dim farbe As String
Private Sub Class_Initialize()
baujahr = 1997
farbe = "Grün"
End Sub
Public Property Get baujahr() As Integer
baujahr = baujahr
End Property
Public Property Let baujahr(ByVal newValue As Integer)
baujahr = newValue
End Property
|