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... :((
Hoffe, jemand kann mir da helfen oder mir zumindest erklären, was ich da wohl nicht verstanden habe... beim Array befüllen...
Vielen Dank!
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
- Private Sub CommandButton2_Click()
- Dim a As Long
- Dim b As Long
- Dim c As Long
- Dim d As Long
- Dim e As Long
- Dim e2 As Long
- Dim f As Long
- Dim y As Long
- Dim AUFNR_BC As Double
- Dim AUFNR_aktuell As Double
- Dim Gesamtbetrag_BD As Double
- Dim Gesamtbetrag_aktuell As Double
- Dim Betrag_aktuell As Double
- Dim Kennzeichen1 As Boolean
- Dim Kennzeichen2 As Boolean
- Dim merke_y() As Variant
- Range("D2:D1048576").ClearContents
- Range("E2:Z1048576").Interior.Color = xlNone
- b = Tabelle13.Cells(Rows.Count, 55).End(xlUp).Row
- d = Tabelle17.Cells(Rows.Count, 5).End(xlUp).Row
- e = Tabelle13.Cells(1, Columns.Count).End(xlToLeft).Column - 48
- e2 = e - 1
- ReDim merke_y(e2)
- Kennzeichen1 = False
- Kennzeichen2 = False
- 'Schaue Tabelle von "6 - Sämtliche Bestellungen" --> Spalte BB und BD an....
- For a = 2 To b
- AUFNR_BC = Tabelle13.Cells(a, 55)
- Gesamtbetrag_BD = Tabelle13.Cells(a, 56)
- 'Schaue Tabelle von "7 - Bestellungen in Aufträgen" --> Zeile für Zeile, von Zeile 2 weg, aus an....
- For c = 2 To d
- AUFNR_aktuell = Tabelle17.Cells(c, 5)
- 'Wenn Auftragsnummer von "7 - Bestellungen in Aufträgen" = Auftragsnummer von "6 - Sämtliche Bestellungen"
- If AUFNR_aktuell = AUFNR_BC Then
- 'Schaue dir jeweils alle Spaltenwerte von der betroffenen Zeile an...
- 'Fall 1: Der Gesamtbetrag von "6 - Sämtliche Bestellungen" entspricht dem aktuell betrachteten Betrag
- For y = 6 To e
- Betrag_aktuell = Tabelle17.Cells(c, y)
- If Betrag_aktuell = Gesamtbetrag_BD And Tabelle17.Cells(1, y) <> "Lohnkosten, eigen" Then
- Kennzeichen1 = True
- 'Wert für Löschkennzeichen Eintragen...
- Tabelle17.Cells(c, 4) = Tabelle13.Cells(a, 53)
- 'Auftragsnummer in gelb einfärben...
- Tabelle17.Range(Tabelle17.Cells(c, 5), Tabelle17.Cells(c, 5)).Interior.Color = 65535
- 'Betrag in grün einfärben...
- Tabelle17.Range(Tabelle17.Cells(c, y), Tabelle17.Cells(c, y)).Interior.Color = 5287936
- Else
- Kennzeichen1 = False
- End If
- Next
- 'Fall 2: Prüfe ob Zeile eingefärbelt ist.... Wenn nicht, dann..
- ' Addiere die Beträge und schaue ob Summe gleich Gesamtbetrag von "6 - Sämtliche Bestellungen" entspricht...
- For y = 6 To e
- If Kennzeichen1 = False Then
- If Tabelle17.Cells(1, y) <> "Lohnkosten, eigen" Then
- Betrag_aktuell = Tabelle17.Cells(c, y)
- Gesamtbetrag_aktuell = Gesamtbetrag_aktuell + Betrag_aktuell
- If Gesamtbetrag_aktuell = Gesamtbetrag_BD Then
- 'Wert für Löschkennzeichen Eintragen...
- Tabelle17.Cells(c, 4) = Tabelle13.Cells(a, 53)
- 'Auftragsnummer in gelb einfärben...
- Tabelle17.Range(Tabelle17.Cells(c, 5), Tabelle17.Cells(c, 5)).Interior.Color = 65535
- 'Betrag in grün einfärben...
- Tabelle17.Range(Tabelle17.Cells(c, y), Tabelle17.Cells(c, y)).Interior.Color = 5287936
- If Kennzeichen2 = True And Tabelle17.Range(Tabelle17.Cells(c, 5), Tabelle17.Cells(c, 5)).Interior.Color = 65535 Then
- For f = 0 To (e - 1)
- Tabelle17.Range(Tabelle17.Cells(c, merke_y(f)), Tabelle17.Cells(c, merke_y(f))).Interior.Color = 5287936
- Next
- Kennzeichen2 = False
- Else
- End If
- Else
- merke_y = y
- Kennzeichen2 = True
- End If
- Else
- End If
- Else
- End If
- Next
- Gesamtbetrag_aktuell = 0
- Else
- End If
- Next
- Next
- 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!