Hey Leute,

hab immer nen scheiß Überlauffehler. Hab alles ausprobiert Double, Currency etc.
Immer wieder erscheint diese Fehlermeldung

ZeileMax trägt den Wert = 74612

Bei Zeile 62123 stoppt das Makro und die Überlauf-Meldung erscheint.

Was kann ich denn da machen?
BItte dringend um Hilfe. Unten mein Code.

Viele Grüße Oxana
 

Option Explicit

Sub InsertData()

Dim Zeile As Long
Dim ZeileMax As Single



With Tabelle2

ZeileMax = .UsedRange.Rows.Count

For Zeile = 2 To ZeileMax

.Range("I" & Zeile) = .Range("H" & Zeile) / .Range("F" & Zeile)



Next Zeile





End With



End Sub