Liebe Community...
Ich bekomme einen Laufzeitfehler 6: Überlauf
Was könnte das bedeuten? --> Überlauf vom einlesen einer Zahl bzw. eines Wertes, etc....?
Das ist mein Code:
Vl. fällt jemanden etwas auf - Achja... und... der Compiler fängt erst ab Zeile 64 (innerhalb der For-Schleife) spinnen an... davor haut alles hin.... also irgendwas scheint da mit dem Zuweisen der Werte zu den Variablen, nicht ganz zu klappen....! Aber ich weiß nicht an was es liegt...:
Ich habe auch alle Variablen, die ganze Zahlen sind, als Long deklariert... aber ich bekomme trotzdem einen Überlauf....
Wäre super, wenn jemand etwas wüsste...![;)](https://www.vb-paradise.de/wcf/images/smilies/wink.png)
Vielen Dank!
LG Tim
Ich bekomme einen Laufzeitfehler 6: Überlauf
Was könnte das bedeuten? --> Überlauf vom einlesen einer Zahl bzw. eines Wertes, etc....?
Das ist mein Code:
Vl. fällt jemanden etwas auf - Achja... und... der Compiler fängt erst ab Zeile 64 (innerhalb der For-Schleife) spinnen an... davor haut alles hin.... also irgendwas scheint da mit dem Zuweisen der Werte zu den Variablen, nicht ganz zu klappen....! Aber ich weiß nicht an was es liegt...:
Visual Basic-Quellcode
- Private Sub Button_Schritt_3_Click()
- Dim a As Long
- Dim b As Long
- Dim Loeschkennzeichen_vorher As String
- Dim Equipmentnummer_vorher As Long
- Dim Auftragsnummer_vorher As Long
- Dim Bty_vorher As String
- Dim Vorgangsart_vorher As Long
- Dim EBELN_vorher As Long
- Dim EPOS_vorher As Long
- Dim Belegdatum_vorher As Date
- Dim Buchungsdatum_vorher As Date
- Dim Menge_vorher As Long
- Dim BetragHWR_vorher As Double
- Dim LieferantenID_vorher As Long
- Dim Loeschkennzeichen_aktuell As String
- Dim Equipmentnummer_aktuell As Long
- Dim Auftragsnummer_aktuell As Long
- Dim Bty_aktuell As String
- Dim Vorgangsart_aktuell As Long
- Dim EBELN_aktuell As Long
- Dim EPOS_aktuell As Long
- Dim Belegdatum_aktuell As Date
- Dim Buchungsdatum_aktuell As Date
- Dim Menge_aktuell As Long
- Dim BetragHWR_aktuell As Double
- Dim LieferantenID_aktuell As Long
- 'Umwandlung der in Text-formatierten Einträge in eine Zahl
- b = Cells(Rows.Count, 2).End(xlUp).Row
- For a = 2 To b
- Cells(a, 2) = CDbl(Cells(a, 2))
- Cells(a, 2).NumberFormat = "General"
- Cells(a, 3) = CDbl(Cells(a, 3))
- Cells(a, 3).NumberFormat = "General"
- Cells(a, 5) = CDbl(Cells(a, 5))
- Cells(a, 5).NumberFormat = "General"
- Cells(a, 7) = CDbl(Cells(a, 7))
- Cells(a, 7).NumberFormat = "General"
- Cells(a, 8) = CDbl(Cells(a, 8))
- Cells(a, 8).NumberFormat = "General"
- Cells(a, 9) = CDbl(Cells(a, 9))
- Cells(a, 9).NumberFormat = "General"
- Cells(a, 13) = CDbl(Cells(a, 13))
- Cells(a, 13).NumberFormat = "General"
- Cells(a, 15) = CDbl(Cells(a, 15))
- Cells(a, 15).NumberFormat = "General"
- Cells(a, 17) = CDbl(Cells(a, 17))
- Cells(a, 17).NumberFormat = "General"
- Cells(a, 19) = CDbl(Cells(a, 19))
- Cells(a, 19).NumberFormat = "General"
- Next
- 'Übertragung aller Auftragsnummern, von Bestellungen, in Spalte AA
- b = Cells(Rows.Count, 2).End(xlUp).Row
- For a = 2 To b
- Cells(a, 27).Value = Cells(a, 3)
- Next
- Range(Cells(2, 27), Cells(b, 27)).RemoveDuplicates Columns:=1, Header:=xlNo
- For a = 2 To b
- Loeschkennzeichen_aktuell = Tabelle13.Cells(a, 1)
- Equipmentnummer_aktuell = Tabelle13.Cells(a, 2)
- Auftragsnummer_aktuell = Tabelle13.Cells(a, 3)
- Bty_aktuell = Tabelle13.Cells(a, 4)
- Vorgangsart_aktuell = Tabelle13.Cells(a, 5)
- EBELN_aktuell = Tabelle13.Cells(a, 8)
- EPOS_aktuell = Tabelle13.Cells(a, 9)
- Belegdatum_aktuell = Tabelle13.Cells(a, 10)
- Buchungsdatum_aktuell = Tabelle13.Cells(a, 11)
- Menge_aktuell = Tabelle13.Cells(a, 13)
- BetragHWR_aktuell = Tabelle13.Cells(a, 17)
- LieferantenID_aktuell = Tabelle13.Cells(a, 19)
- 'If Loeschkennzeichen_aktuell = Loeschkennzeichen_vorher And
- Next
- End Sub
Ich habe auch alle Variablen, die ganze Zahlen sind, als Long deklariert... aber ich bekomme trotzdem einen Überlauf....
Wäre super, wenn jemand etwas wüsste...
![;)](https://www.vb-paradise.de/wcf/images/smilies/wink.png)
Vielen Dank!
LG Tim
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ereza“ ()