Supportnet / Forum / Tabellenkalkulation
Run-Time error overflow
Frage
Hallo, vielleicht kann mir ja von euch einer weiterhelfen:
ich habe ein Programm geschrieben, das einen run-time error hat.
Allerdings glaube ich nicht, dass es an einem zu grossen Datenbereich liegt (ca 8000 Zeilen) und mein Variablen-Bereich sollte auch gross genung sein.
Vielen Dank schonmal im Vorraus
Function fctKonst(var1 As Range) As Variant
fctKonst = WorksheetFunction.StDev(var1) / WorksheetFunction.Average(var1)
End Function
Sub konst()
Dim a As Long
Dim b As Long
Dim Rng As Range
a = 2
x = 2
Do While Cells(x, 1).Value <> ""
If Cells(x, 4).Value = Cells(x + 1, 4).Value _
And Cells(x, 6).Value = Cells(x + 1, 6).Value _
Then
x = x + 1
Else
b = x
Set Rng = Range(Cells(a, 11), Cells(b, 11))
If fctKonst(Rng) < 0.1 _
Then
Cells(x, 13).Value = 1
Else
Cells(x, 13).Value = 0
End If
a = x + 1
x = x + 1
End If
Loop
End Sub
Antwort 1 von genau
Hallo Henrike,
Besteht für Dich die Möglichkeit die Excel-Datei zu veröffentlichen? Oder handelt es sich dabei um sensible Daten?
Hindergrund ist der, daß ohne die entsprechend dazugehörigen Daten(Tabelenwerte) hier, völlig aus dem Kontext gezerrt, sicher niemand wirklich helfen kann.
Möglichkeit zum Upload z.B. www.netupload.de, und den Link hier dann posten.
Gruß genau
Besteht für Dich die Möglichkeit die Excel-Datei zu veröffentlichen? Oder handelt es sich dabei um sensible Daten?
Hindergrund ist der, daß ohne die entsprechend dazugehörigen Daten(Tabelenwerte) hier, völlig aus dem Kontext gezerrt, sicher niemand wirklich helfen kann.
Möglichkeit zum Upload z.B. www.netupload.de, und den Link hier dann posten.
Gruß genau
Antwort 2 von nighty
hi :)
eindeutige deklarierung waere fein wie auch eindeutige var namen :)
gruss nighty
eindeutige deklarierung waere fein wie auch eindeutige var namen :)
gruss nighty