VBA

Hier finden sich Tipps und Tricks sowie Code-Vorlagen zu VBA (Visual-Basic for Applications)

Programmierung mit Outlook

Eine Einleitung:

VBA Macros für Outlook

VBA-Klassen

Quelle: Online-Excel

Option Explicit
Dim pCollection As Collection
Private pProjNr As Long
Private pKundeProjekt As String


Private Sub Class_Initialize()
    Set pCollection = New Collection
End Sub

Private Sub Class_Terminate()
    Set pCollection = Nothing
End Sub


Public Property Get coll() As Collection
    Dim tempColl As Collection
    Set tempColl = pCollection
    Set coll = tempColl
End Property

Public Property Get projNr() As Variant
    projNr = pProjNr
End Property

Public Property Let projNr(ByVal vNewValue As Variant)
    pProjNr = vNewValue
End Property

Public Property Get kundeProjekt() As Variant
    kundeProjekt = pKundeProjekt
End Property

Public Property Let kundeProjekt(ByVal vNewValue As Variant)
    pKundeProjekt = vNewValue
End Property