Laufzeitfehler 6 (Überlauf) - Warum?
08.07.2006 01:50:35
J.L.
Ich versuche im Folgenden in einer Userform die User mit einer Prozent-Fortschrittsanzeige bei Laune zu halten. Es funktioniert alles super mit dem einlesen in das Array. Nur wenn ich die Fortschrittsanzeige einbaue - Bekomme ich nach kurzer Zeit Laufzeitfehler 6. Wie kann ich das umgehen?
Sub Read_Extern_File()
Dim dblProz As Double
Application.ScreenUpdating = False
Workbooks.Open ("P:\statLabor\roh.xls")
TxtLines = Application.WorksheetFunction.CountA(Workbooks("roh.xls").Sheets("roh").Range("A:A"))
ReDim TextArr(1 To TxtLines, 1 To 18)
For iRow = 1 To TxtLines
For iCol = 1 To 18
TextArr(iRow, iCol) = Workbooks("roh.xls").Sheets("roh").Cells(iRow, iCol)
Next iCol
If iRow Mod 100 = 0 Then ' hier beginnen die Probleme
dblProz = Round(iRow * 100 / TxtLines, 0)
frm_Fortschritt.lbl_Wait.Caption = "Daten werden eingelesen . . ." & dblProz & "%"
DoEvents
End If
Next iRow
Workbooks("roh.xls").Close False
End Sub
Danke Jörg
Anzeige