Hallo liebe Excylanten,

ich möchte mit einer Methode in der Klasse prüfen welche Eigenschaft des Objektes ihr übergeben wird. Konkret will ich diese Eigenschaft dann an einer bestimmten Stelle im Tabellenblatt anzeigen. Um diese Stellen einfach verändern zu können wollte ich diese in einer zentralen Methode bündeln. Leider verliert das die Objekteigenschaft bei der Übergabe seinen Namen. Somit kann ich mit der Switch Case-Anweisung nicht mehr die bestimmen um welche Eigenschaft es sich handelt. Habt ihr eine Idee wie ich das lösen könnte? Ich bin auch für Vorschläge offen die die Problematik auf eine andere Art lösen.

die Klasse myClass:

Option Explicit
Public mName As String
Public mPreis As Double
Public mvar

Public Function print_(prop)
Dim firstCell
Dim lastCell
Dim firstRow
Dim lastRow
Dim that_sheet
Dim rundungstellen As Integer
rundungstellen = 0
' -----------------------------------------------
' Hier soll geprüft werden ->>
' -----------------------------------------------
Select Case prop
    Case mName
        firstCell = 25
        lastCell = 27
        that_sheet = "Ergebnis"
    Case mPreis
        firstCell = 29
        lastCell = 0
        that_sheet = "Ergebnis"
    End Select
Select Case that_sheet
    Case "Ergebnis"
        Select Case mvar
            Case 0
                firstRow = 10
                lastRow = 12
            Case 1
                firstRow = 14
                lastRow = 16
        End Select
   End Select
With Sheets(that_sheet)
    .Range(.Cells(firstCell, firstRow), .Cells(lastCell, lastRow)) = Application.Round(prop, rundungstellen)
End With

Zum Aufruf:

Sub Main()
Dim Lam1 As New myClass
Call Lam1.print_(Lam1.mPreis)
End Sub