Laufzeitfehler 6: "Überlauf"

  • Excel

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von ereza.

    Laufzeitfehler 6: "Überlauf"

    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...:

    Visual Basic-Quellcode

    1. Private Sub Button_Schritt_3_Click()
    3. Dim a As Long
    4. Dim b As Long
    6. Dim Loeschkennzeichen_vorher As String
    7. Dim Equipmentnummer_vorher As Long
    8. Dim Auftragsnummer_vorher As Long
    9. Dim Bty_vorher As String
    10. Dim Vorgangsart_vorher As Long
    11. Dim EBELN_vorher As Long
    12. Dim EPOS_vorher As Long
    13. Dim Belegdatum_vorher As Date
    14. Dim Buchungsdatum_vorher As Date
    15. Dim Menge_vorher As Long
    16. Dim BetragHWR_vorher As Double
    17. Dim LieferantenID_vorher As Long
    19. Dim Loeschkennzeichen_aktuell As String
    20. Dim Equipmentnummer_aktuell As Long
    21. Dim Auftragsnummer_aktuell As Long
    22. Dim Bty_aktuell As String
    23. Dim Vorgangsart_aktuell As Long
    24. Dim EBELN_aktuell As Long
    25. Dim EPOS_aktuell As Long
    26. Dim Belegdatum_aktuell As Date
    27. Dim Buchungsdatum_aktuell As Date
    28. Dim Menge_aktuell As Long
    29. Dim BetragHWR_aktuell As Double
    30. Dim LieferantenID_aktuell As Long
    32. 'Umwandlung der in Text-formatierten Einträge in eine Zahl
    33. b = Cells(Rows.Count, 2).End(xlUp).Row
    34. For a = 2 To b
    35. Cells(a, 2) = CDbl(Cells(a, 2))
    36. Cells(a, 2).NumberFormat = "General"
    37. Cells(a, 3) = CDbl(Cells(a, 3))
    38. Cells(a, 3).NumberFormat = "General"
    39. Cells(a, 5) = CDbl(Cells(a, 5))
    40. Cells(a, 5).NumberFormat = "General"
    41. Cells(a, 7) = CDbl(Cells(a, 7))
    42. Cells(a, 7).NumberFormat = "General"
    43. Cells(a, 8) = CDbl(Cells(a, 8))
    44. Cells(a, 8).NumberFormat = "General"
    45. Cells(a, 9) = CDbl(Cells(a, 9))
    46. Cells(a, 9).NumberFormat = "General"
    47. Cells(a, 13) = CDbl(Cells(a, 13))
    48. Cells(a, 13).NumberFormat = "General"
    49. Cells(a, 15) = CDbl(Cells(a, 15))
    50. Cells(a, 15).NumberFormat = "General"
    51. Cells(a, 17) = CDbl(Cells(a, 17))
    52. Cells(a, 17).NumberFormat = "General"
    53. Cells(a, 19) = CDbl(Cells(a, 19))
    54. Cells(a, 19).NumberFormat = "General"
    55. Next
    57. 'Übertragung aller Auftragsnummern, von Bestellungen, in Spalte AA
    58. b = Cells(Rows.Count, 2).End(xlUp).Row
    59. For a = 2 To b
    60. Cells(a, 27).Value = Cells(a, 3)
    61. Next
    62. Range(Cells(2, 27), Cells(b, 27)).RemoveDuplicates Columns:=1, Header:=xlNo
    64. For a = 2 To b
    66. Loeschkennzeichen_aktuell = Tabelle13.Cells(a, 1)
    67. Equipmentnummer_aktuell = Tabelle13.Cells(a, 2)
    68. Auftragsnummer_aktuell = Tabelle13.Cells(a, 3)
    69. Bty_aktuell = Tabelle13.Cells(a, 4)
    70. Vorgangsart_aktuell = Tabelle13.Cells(a, 5)
    71. EBELN_aktuell = Tabelle13.Cells(a, 8)
    72. EPOS_aktuell = Tabelle13.Cells(a, 9)
    73. Belegdatum_aktuell = Tabelle13.Cells(a, 10)
    74. Buchungsdatum_aktuell = Tabelle13.Cells(a, 11)
    75. Menge_aktuell = Tabelle13.Cells(a, 13)
    76. BetragHWR_aktuell = Tabelle13.Cells(a, 17)
    77. LieferantenID_aktuell = Tabelle13.Cells(a, 19)
    79. 'If Loeschkennzeichen_aktuell = Loeschkennzeichen_vorher And
    81. Next
    84. 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... ;)

    Vielen Dank!

    LG Tim

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

    An welcher Stelle genau? Wie groß ist a zu dem Zeitpunkt?
    Debug doch einfach durch den Code, wenn eine Exception fliegt kannst dir ja alles Ausgeben lassen im DirektFenster mit ?a
    zum Beispiel
    Das ist meine Signatur und sie wird wunderbar sein!

    Also genau bei Zeile 71... wenn EBELN_aktuell der Wert zugewiesen wird...

    der Wert der für EBELN_aktuell zugewiesen wird, wäre 4501129012
    ist das zu groß???

    a hat den Wert: 2

Facebook
Telefonspende