Laufzeitfehler '6': Überlauf
22.06.2021 14:59:50
Winfried
bei Zahlenwerten von etwa oberhalb 30'000 erhalte ich eine Fehlermeldung "Laufzeitfehler '6': Überlauf" beim VBA Code:
----------------------------------------
Private Sub Schwund()
If Len(TextBoxBruttogewicht) = 0 Then
TextBoxBruttogewicht.Value = 0
End If
If Len(TextBoxNettogewicht) = 0 Then
TextBoxNettogewicht.Value = 0
End If
Me.TextBoxMaske_Schwund.Value = CInt(TextBoxBruttogewicht) - CInt(TextBoxNettogewicht.Value)
End Sub
Der Laufzeitfehler sollte lt. meiner Google Recherge mit
dblMaxWert = Application.WorksheetFunction.max(Range(Cells(8, x2), Cells(59, x2)))
oder
ActiveSheet.Range("A7").Value = Application.WorksheetFunction.Sum(Range(Cells(1, 1), (Cells(5, 1))))
zu beheben sein. Klar, das ist mir nicht gelungen.. sonst würde ich ja nicht um Hilfe bitten.
Hat jemand eine Idee wie ich obiges VBA anpassen muss?
Vielen Dank für jedweden Tipp!
Schoene Gruesse
Winfried