Array-Property - Argumenttyp ByRef unverträglich

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von bmn.

    Array-Property - Argumenttyp ByRef unverträglich

    Hallo,

    vor einigen Tagen hatte ich das Problem, Property mit einem Array zu belegen ( [Excel] Array als Property definieren? ). Das wurde soweit auch ganz gut gelöst, bisher hat alles wunderbar funktioniert.
    Nur kriege seit kurzem (und ich hab nichts an der clsMWert verändert) die Fehlermeldung: Fehler beim Kompilieren: Argumenttyp ByRef unverträglich
    Ich habe unten einmal die clsMWert und die relevanten Subs der UF aufgeführt.

    In die clsMWert habe ich exemplarisch eine unkritische Property und die vier fehlerhaften eingebracht. Im UF-Code sind die Fehlerstellen hervorgehoben.

    Vielleicht aber einmal zur Aufgabenstellung (die an sich recht simpel ist):
    Ich lese Werte in einer definierten Form aus einer Excel-Tabelle heraus. Das hat so auch ganz gut geplappt (selbst mit den arrays). Wer weiß, warum er jetzt auf einmal Zicken macht... Ich habe auch noch eine funktionierende Version, zu der ich allerdings keine Unterschiede erkennen kann (bei Wunsch poste ich das, sonst wirds hier einfach zu viel)


    clsMWert

    Visual Basic-Quellcode

    1. Option Explicit
    3. Dim mWNr, mORadBearb As String
    4. Dim mKFaktor, mVStrom(4), mORadL, mORadR, mKonf, i, mVNr As Integer
    5. Dim mDatum As Date
    6. Dim mMWert As Single
    7. Dim mVAbl(4), mVWahr(4), mFehler(4) As Single
    9. '********************************
    10. '***** Standardwerte setzen *****
    12. Private Sub Class_Initialize()
    13. mWNr = "xxxx"
    14. mKFaktor = 1
    15. mORadL = -1
    16. mORadR = -1
    17. mKonf = -1
    18. mORadBearb = -1
    19. mVStrom(1) = 10
    20. mVStrom(2) = 5
    21. mVStrom(3) = 2
    22. mVStrom(4) = 1
    23. mDatum = 0
    24. mMWert = 9.999
    25. For i = 1 To 4
    26. mVAbl(i) = -1
    27. mVWahr(i) = -1
    28. mFehler(i) = -1
    29. Next i
    31. End Sub
    34. '***************************
    35. '***** Let-Get für WNr *****
    37. Public Property Let WNr(ByVal DieWNr As String)
    38. mWNr = DieWNr
    39. End Property
    41. Public Property Get WNr() As String
    42. WNr = mWNr
    43. End Property
    45. '******************************
    46. '***** Let-Get für Fehler *****
    48. Public Property Let Fehler(index As Integer, derFehler As Single)
    49. If index > 0 And index <= 4 Then
    50. mFehler(index) = derFehler
    51. End If
    52. End Property
    54. Public Property Get Fehler(index As Integer) As Single
    55. If index > 0 And index <= 4 Then
    56. Fehler = mFehler(index)
    57. Else
    58. Fehler = -1
    59. End If
    60. End Property
    62. '*******************************
    63. '***** Let-Get für VAbl *****
    65. Public Property Let VAbl(index As Integer, DasVAbl As Single)
    66. If index > 0 And index <= 4 Then
    67. mVAbl(index) = DasVAbl
    68. End If
    69. End Property
    71. Public Property Get VAbl(index As Integer) As Single
    72. If index > 0 And index <= 4 Then
    73. VAbl = mVAbl(index)
    74. Else
    75. VAbl = -1
    76. End If
    77. End Property
    79. '*******************************
    80. '***** Let-Get für VWahr *****
    82. Public Property Let VWahr(index As Integer, DasVWahr As Single)
    83. If index > 0 And index <= 4 Then
    84. mVWahr(index) = DasVWahr
    85. End If
    86. End Property
    88. Public Property Get VWahr(index As Integer) As Single
    89. If index > 0 And index <= 4 Then
    90. VWahr = mVWahr(index)
    91. Else
    92. VWahr = -1
    93. End If
    94. End Property
    96. '*******************************
    97. '***** Let-Get für MVStrom *****
    99. Public Property Let VStrom(index As Integer, derVStrom As Integer)
    100. If index > 0 And index <= 4 Then
    101. mVStrom(index) = derVStrom
    102. End If
    103. End Property
    105. Public Property Get VStrom(index As Integer) As Integer
    106. If index > 0 And index <= 4 Then
    107. VStrom = mVStrom(index)
    108. Else
    109. VStrom = -1
    110. End If
    111. End Property


    UF

    Visual Basic-Quellcode

    1. Option Explicit
    2. ' cMReihen gibt die Größe des Feldes an
    3. Const cMReihen As Integer = 100
    4. Dim MWerte(cMReihen) As clsMWert
    7. Private Sub UserForm_Initialize()
    9. Dim iIndex As Integer
    10. Dim sVers, sVersA() As String
    12. iIndex = 1
    14. For i = 1 To cMReihen
    15. Set MWerte(i) = New clsMWert
    16. Next i
    18. '*******************************
    19. '***** Einlesen des Arrays *****
    21. While Cells(iIndex, 1).Value <> "" And Cells(iIndex + 1, 1).Value <> ""
    23. sVers = Cells(iIndex, 1).Value
    24. sVersA() = Split(sVers, "-")
    26. With MWerte((iIndex - 1) / 7 + 1)
    27. .Konf = CInt(sVersA(0))
    28. .WNr = sVersA(1)
    29. .VNr = CInt(Cells(iIndex + 1, 1).Value)
    30. .ORadL = CInt(sVersA(2))
    31. .ORadR = CInt(sVersA(3))
    32. .ORadBearb = sVersA(4)
    33. .Datum = Cells(iIndex, 2).Value ' + Format(Cells(iIndex, 3), "hh:mm:ss")
    34. .KFaktor = Cells(iIndex + 1, 2).Value
    35. .MWert = Cells(iIndex + 1, 4).Value
    36. For i = 1 To 4
    37. .VStrom(i) = Cells(iIndex + i + 1, 1).Value ' Hier
    38. .VWahr(i) = Cells(iIndex + i + 1, 2).Value ' treten
    39. .VAbl(i) = Cells(iIndex + i + 1, 3).Value ' Fehler
    40. .Fehler(i) = Cells(iIndex + i + 1, 4).Value ' auf
    41. Next i
    42. End With
    43. iIndex = iIndex + 7
    44. Wend
    46. End Sub


    Übrigens wird jeweils das i in den Klammern von VStrom etc. grau hinterlegt.

    Vielleicht könnt ihr mir helfen, bisher war ich sehr glücklich über eure Hilfe.

    PS: Ich bin das Wochenende über nicht da, kann also auch nicht antworten :S

    So, ich bin wieder da, aber leider hat sich ja nicht so viel getan? Gibt es keine Ideen?



    @INOPIAE: Die Deklaration für i hab ich wohl nicht mit in den Code oben übernommen, im Original ist sie aber vorhanden.



    EDIT: Ich hab das Problem gelöst. Standardmäßig wird in der Property offenbar ByRef angenommen und damit haut das nicht hin für mich.

    Visual Basic-Quellcode

    1. '*******************************
    2. '***** Let-Get für MVStrom *****
    3. Public Property Let VStrom(ByVal index As Integer, ByVal derVStrom As Integer)
    4. If index > 0 And index <= 4 Then
    5. mVStrom(index) = derVStrom
    6. End If
    7. End Property
    8. Public Property Get VStrom(ByVal index As Integer) As Integer
    9. If index > 0 And index <= 4 Then
    10. VStrom = mVStrom(index)
    11. Else
    12. VStrom = -1
    13. End If
    14. End Property


    Der Code zeigt eine Property, der Rest ist analog zu sehen.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „bmn“ ()