Office: Laufzeitfehler 6 "Überlauf" ???

Hammer · 15. Januar 2010

Hallo,

folgender Code funktionierte bis jetzt immer super, aber irgendwo bei Zeile 32000 fing er an mir ein Laufzeitfehler 6, "Überlauf" zu melden. Was ist da los?

Code:

Sub letzte_Zeile()

Dim iRow As Integer
iRow = Cells(Rows.Count, 183).End(xlUp).Row + 2
Cells(iRow, 183).Select

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dim Ergebniss ist doch als Integer deklariert, woran kann es denn noch liegen?

:)

jinx · 17. Januar 2010

Moin, hammer,

der Bereich für Integer-Zahlen geht von -32768 bis 32767 - Du solltest dann die Zahl vom Typ Long dimensionieren...

Hammer · 17. Januar 2010

moin jinx,

zum Glück gibt es auch Dinge die mal fix erledigt sind!

Danke Dir und ein schönen Sonntag noch!!!

granbycools · 24. Juli 2012

Hi Leutz,

Ich bekomme beim debuggen den gleichen Fehler.
Leider habe ich grade keine Ahnung wo der Fehler liegen könnte.. Hat da jemand vllt ne Idee:

Code:

Option Explicit

Private Sub dcp_bearbeitung()

Dim w1 As Worksheet
Dim y1 As Long
Dim y12 As Long
Dim x1 As Long
Dim t1 As String
Dim w2 As Worksheet
Dim y2 As Long
Dim x2 As Long
Dim t2 As String
Dim max As Long
Dim y3 As Long
Dim x3 As Long
Dim w3 As Worksheet

Set w1 = ActiveSheet
Set w2 = ActiveSheet
Set w3 = ActiveSheet

w2.Range(w2.Cells(8, 4), w2.Cells(65536, 4)).ClearContents
w2.Range(w2.Cells(8, 5), w2.Cells(65536, 5)).ClearContents
w2.Range(w2.Cells(8, 6), w2.Cells(65536, 6)).ClearContents

y1 = 8: x1 = 3: y12 = 108
w1.Activate: ActiveSheet.Cells(y1, x1).Activate
t1 = Trim$(w1.Cells(y1, x1).Value)
While (t1 "")

y2 = 8: x2 = 6
'w2.Activate: ActiveSheet.Cells(y2, x2).Activate
t2 = Trim$(w2.Cells(y2, x2).Value)
While (t2 "")

y2 = y2 + 1: x2 = 6
'w2.Activate: ActiveSheet.Cells(y2, x2).Activate
t2 = Trim$(w2.Cells(y2, x2).Value)
Wend

If (y2 < 59) Then
w2.Cells(y2, x2).Value = -1 * (w1.Cells(y1, x1).Value - w1.Cells(y12, x1).Value)
w2.Cells(y2, x2 - 1).Value = w1.Cells(y1, x1 - 2).Value
If (w2.Cells(y2, x2).Value >= w2.Cells(y2 + 1, x2).Value) Then
w2.Cells(y2, x2).Value = max
Else
w2.Cells(y2 + 1, x2).Value = max
End If

y1 = y1 + 1: x1 = 3: y12 = y12 - 1
w1.Activate: ActiveSheet.Cells(y1, x1).Activate
t1 = Trim$(w1.Cells(y1, x1).Value)

w2.Cells(y2, x2 + 1).Value = (w2.Cells(y2, x2).Value) / max

End If

y1 = y1 + 1: x1 = 3: y12 = y12 - 1
w1.Activate: ActiveSheet.Cells(y1, x1).Activate
t1 = Trim$(w1.Cells(y1, x1).Value)

x3 = 7: y3 = 3
w3.Activate: ActiveSheet.Cells(y3, x3).Activate
w3.Cells(y3, x3).Value = max

Wend

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

IngGi · 24. Juli 2012

Hallo,

magst du dem Forum nicht die Codezeile verraten, in der der Fehler auftritt? Auch Variablen vom Typ Long haben einen begrenzten Wertebereich. Möglicherweise musst du auf den Typ Double ausweichen.

Gruß Ingolf

granbycools · 24. Juli 2012

Hi,
das mit dem Laufzeitfehler habe ich schon ausgebügelt. Aber danke trotzdem. Das Eigentliche Problem konnte ich leider immer noch nicht lösen. In der For-Schleife (letzter Teil) soll der Maximalwert der zuvor erstellen Spalte y2, x2
herrausgeschrieben werden. Leider scheint der größer als Vergleich nicht zu funktionieren. Der double Wert max, wird immer mit dem ausgelesenen Wert überschrieben.. Hast du da vllt ne Idee??
Gruß granby
Code:

Private Sub dcp_bearbeitung()

Dim y1 As Long
Dim y12 As Long
Dim x1 As Long
Dim t1 As String
Dim y2 As Long
Dim x2 As Long
Dim t2 As String
Dim max As Double
Dim y3 As Long
Dim x3 As Long

Cells(2, 6).ClearContents
Range(Cells(8, 4), Cells(65536, 4)).ClearContents
Range(Cells(8, 5), Cells(65536, 5)).ClearContents
Range(Cells(8, 6), Cells(65536, 6)).ClearContents

y1 = 8: x1 = 3: y12 = 108
'Activate: ActiveSheet.Cells(y1, x1).Activate
t1 = Trim$(Cells(y1, x1).Value)
While (t1 "")

y2 = 8: x2 = 6
'Activate: ActiveSheet.Cells(y2, x2).Activate
t2 = Trim$(Cells(y2, x2).Value)
While (t2 "")

y2 = y2 + 1: x2 = 6
'Activate: ActiveSheet.Cells(y2, x2).Activate
t2 = Trim$(Cells(y2, x2).Value)
Wend

If (y2 < 59) Then
Cells(y2, x2).Value = -1 * (Cells(y1, x1).Value - Cells(y12, x1).Value)
Cells(y2, x2 - 1).Value = Cells(y1, x1 - 2).Value

End If

y1 = y1 + 1: x1 = 3: y12 = y12 - 1
'Activate: ActiveSheet.Cells(y1, x1).Activate
t1 = Trim$(Cells(y1, x1).Value)

Wend

Dim i As Integer
y3 = 2: x3 = 6
max = Cells(y2, x2).Value
Cells(y3, x3).Value = max
For i = 8 To 58
'Activate: ActiveSheet.Cells(y3, x3).Activate

If (Cells(i + 1, x2).Value > Cells(i, x2).Value) Then
max = Cells(i + 1, x2).Value
Else
max = Cells(i, x2).Value
End If

Next i

Cells(y3, x3).Value = max

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

IngGi · 24. Juli 2012

Hallo granby,

für den Maximalwert gibt es eine eingebaute Funktion, das erspart dir die Schleife:
Code:

dblMaxWert = Application.WorksheetFunction.max(Range(Cells(8, x2), Cells(59, x2)))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bei den Variablennamen solltest du zumindest Schlüsselwörter, die von Excel oder VBA verwendet werden vermeiden. Max ist so ein Schlüsselwort. Generell solltest du im eigenen Interesse sprechende Variablennamen verwenden, also solche Variablennamen, die etwas über deren Einsatz verraten. Zum Beispiel statt x2 den Namen loSpalteEingabeWerte, wobei die ersten beiden Buchstaben "lo" in diesem Fall noch verraten, dass es sich um eine Variable des Typs Long handelt.

In ein paar Wochen oder Monaten bist du froh um solche Variablennamen, wenn du dein eigenes Makro nochmal anpassen musst, weil du dir dann unter x2 selbst nicht mehr vorstellen kannst, wofür diese Variable ist.

Gruß Ingolf

granbycools · 25. Juli 2012

Danke vielmals, du hast mir da grade echt viel Chaos erspart!
Gruß granby

Office: Laufzeitfehler 6 "Überlauf" ???

Laufzeitfehler 6 "Überlauf" ???

Laufzeitfehler 6 "Überlauf" ???

Laufzeitfehler 6 "Überlauf" ???

Laufzeitfehler 6 "Überlauf" ???

Laufzeitfehler 6 "Überlauf" ??? - Similar Threads - Laufzeitfehler Überlauf

VBA:Laufzeitfehler beim Einlesen in Variable

Datenbank bleibt gesperrt - laccdb wird nicht gelöscht

Access Laufzeitfehler 3048

Laufzeitfehler 9 VBA

VBA Laufzeitfehler 9

[VBA] .Documents.Open -> Laufzeitfehler 91

Laufzeitfehler '6': Überlauf