Public Function AddMesspunkt(ByVal MesspunktNummer As Integer, ByVal X_Position _
  As Integer, _
                            ByVal Y_Position, ByVal Welligkeit As Integer, _
                            ByVal Offset As Integer)
 
    Dim objNewMember1 As Messpunkte
    Set objNewMember1 = New Messpunkte         '<<muss das hier rein??
 
    With objNewMember1
        .MesspunktNummer = MesspunktNummer
        .X_Position = X_Position
        .Y_Position = Y_Position
        .Welligkeit = Welligkeit
        .Offset = Offset
    End With
 
    mColMesspunkt.Add objNewMember1
 
    Set AddMesspunkt = objNewMember1
 
    Set objNewMember1 = Nothing
 
End Function
 
Public Property Get ItemMesspunkt(ByVal Index As Long) As Messpunkte
 
    Set ItemMesspunkt = mColMesspunkt(Index)
 
End Property
 
Public Property Get CountMesspunkt() As Integer
    mColMesspunkt.Count
End Property
 
'Public Property Get Messpunkt() As Collection
'    Set Messpunkt = mColMesspunkt
'End Property
 
Private Sub Class_Initialize()
    Set mColMesspunkt = New Collection
End Sub
 
Private Sub Class_Terminate()
    Set mColMesspunkt = Nothing
End Sub

Option Explicit
 
Dim mvarMesspunktNummer As Integer
Dim mvarX_Position  As Integer
Dim mvarY_Position  As Integer
Dim mvarWelligkeit As Integer
Dim mvarOffset As Integer
 
Public Property Let MesspunktNummer(ByVal vData As Integer)
    mvarMesspunktNummer = vData
End Property
 
Public Property Get MesspunktNummer() As Integer
    MesspunktNummer = mvarMesspunktNummer
End Property
 
Public Property Let X_Position(ByVal vData As Integer)
    mvarX_Position = vData
End Property
 
Public Property Get X_Position() As Integer
    X_Position = mvarX_Position
End Property
 
Public Property Let Y_Position(ByVal vData As Integer)
    mvarY_Position = vData
End Property
 
Public Property Get Y_Position() As Integer
    Y_Position = mvarY_Position
End Property
 
Public Property Let Welligkeit(ByVal vData As Integer)
    mvarWelligkeit = vData
End Property
 
Public Property Get Welligkeit() As Integer
    Welligkeit = mvarWelligkeit
End Property
 
Public Property Let Offset(ByVal vData As Integer)
    mvarOffset = vData
End Property
 
Public Property Get Offset() As Integer
    Offset = mvarOffset
End Property

Blaetter.AddBlatt 1, Format, Laenge_Y, Laenge_X, Anzahl_MP

Blaetter.ItemBlatt(1).AddMesspunkt 1, X_Position, Y_Position, Welligkeit, Offset