Fehler: keine zuweisung an datenfeld möglich

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Mono.

    Fehler: keine zuweisung an datenfeld möglich

    Hallo Community,

    Ich bekomme einen Fehler: "Keine Zuweisung an Datenfeld möglich"

    Scheints... kann mein Array nicht befüllt werden :(
    und ich weiß aber auch nicht warum... weil eigentlich sollte das klappen...

    ich zeig euch mal meinen original-code... und in zeile 83 spinnt er dann... :((


    Visual Basic-Quellcode

    1. Private Sub CommandButton2_Click()
    3. Dim a As Long
    4. Dim b As Long
    5. Dim c As Long
    6. Dim d As Long
    7. Dim e As Long
    8. Dim e2 As Long
    9. Dim f As Long
    10. Dim y As Long
    11. Dim AUFNR_BC As Double
    12. Dim AUFNR_aktuell As Double
    13. Dim Gesamtbetrag_BD As Double
    14. Dim Gesamtbetrag_aktuell As Double
    15. Dim Betrag_aktuell As Double
    16. Dim Kennzeichen1 As Boolean
    17. Dim Kennzeichen2 As Boolean
    18. Dim merke_y() As Variant
    20. Range("D2:D1048576").ClearContents
    21. Range("E2:Z1048576").Interior.Color = xlNone
    23. b = Tabelle13.Cells(Rows.Count, 55).End(xlUp).Row
    24. d = Tabelle17.Cells(Rows.Count, 5).End(xlUp).Row
    25. e = Tabelle13.Cells(1, Columns.Count).End(xlToLeft).Column - 48
    26. e2 = e - 1
    28. ReDim merke_y(e2)
    30. Kennzeichen1 = False
    31. Kennzeichen2 = False
    33. 'Schaue Tabelle von "6 - Sämtliche Bestellungen" --> Spalte BB und BD an....
    34. For a = 2 To b
    35. AUFNR_BC = Tabelle13.Cells(a, 55)
    36. Gesamtbetrag_BD = Tabelle13.Cells(a, 56)
    37. 'Schaue Tabelle von "7 - Bestellungen in Aufträgen" --> Zeile für Zeile, von Zeile 2 weg, aus an....
    38. For c = 2 To d
    39. AUFNR_aktuell = Tabelle17.Cells(c, 5)
    40. 'Wenn Auftragsnummer von "7 - Bestellungen in Aufträgen" = Auftragsnummer von "6 - Sämtliche Bestellungen"
    41. If AUFNR_aktuell = AUFNR_BC Then
    42. 'Schaue dir jeweils alle Spaltenwerte von der betroffenen Zeile an...
    44. 'Fall 1: Der Gesamtbetrag von "6 - Sämtliche Bestellungen" entspricht dem aktuell betrachteten Betrag
    45. For y = 6 To e
    46. Betrag_aktuell = Tabelle17.Cells(c, y)
    47. If Betrag_aktuell = Gesamtbetrag_BD And Tabelle17.Cells(1, y) <> "Lohnkosten, eigen" Then
    48. Kennzeichen1 = True
    49. 'Wert für Löschkennzeichen Eintragen...
    50. Tabelle17.Cells(c, 4) = Tabelle13.Cells(a, 53)
    51. 'Auftragsnummer in gelb einfärben...
    52. Tabelle17.Range(Tabelle17.Cells(c, 5), Tabelle17.Cells(c, 5)).Interior.Color = 65535
    53. 'Betrag in grün einfärben...
    54. Tabelle17.Range(Tabelle17.Cells(c, y), Tabelle17.Cells(c, y)).Interior.Color = 5287936
    55. Else
    56. Kennzeichen1 = False
    57. End If
    58. Next
    60. 'Fall 2: Prüfe ob Zeile eingefärbelt ist.... Wenn nicht, dann..
    61. ' Addiere die Beträge und schaue ob Summe gleich Gesamtbetrag von "6 - Sämtliche Bestellungen" entspricht...
    63. For y = 6 To e
    64. If Kennzeichen1 = False Then
    65. If Tabelle17.Cells(1, y) <> "Lohnkosten, eigen" Then
    66. Betrag_aktuell = Tabelle17.Cells(c, y)
    67. Gesamtbetrag_aktuell = Gesamtbetrag_aktuell + Betrag_aktuell
    68. If Gesamtbetrag_aktuell = Gesamtbetrag_BD Then
    69. 'Wert für Löschkennzeichen Eintragen...
    70. Tabelle17.Cells(c, 4) = Tabelle13.Cells(a, 53)
    71. 'Auftragsnummer in gelb einfärben...
    72. Tabelle17.Range(Tabelle17.Cells(c, 5), Tabelle17.Cells(c, 5)).Interior.Color = 65535
    73. 'Betrag in grün einfärben...
    74. Tabelle17.Range(Tabelle17.Cells(c, y), Tabelle17.Cells(c, y)).Interior.Color = 5287936
    75. If Kennzeichen2 = True And Tabelle17.Range(Tabelle17.Cells(c, 5), Tabelle17.Cells(c, 5)).Interior.Color = 65535 Then
    76. For f = 0 To (e - 1)
    77. Tabelle17.Range(Tabelle17.Cells(c, merke_y(f)), Tabelle17.Cells(c, merke_y(f))).Interior.Color = 5287936
    78. Next
    79. Kennzeichen2 = False
    80. Else
    81. End If
    82. Else
    83. merke_y = y
    84. Kennzeichen2 = True
    85. End If
    86. Else
    87. End If
    88. Else
    89. End If
    90. Next
    91. Gesamtbetrag_aktuell = 0
    94. Else
    95. End If
    96. Next
    97. Next
    99. End Sub



    Hoffe, jemand kann mir da helfen oder mir zumindest erklären, was ich da wohl nicht verstanden habe... beim Array befüllen... :(

    Vielen Dank!

Facebook
Telefonspende