Laufzeitfehler 13 - Typen unverträglich
11.08.2016 13:58:38
Lu
Hier der Fehlerhafte ausschnitt aus dem Code... Fehler kommt in der For-Schleife
[code]
'Deaktivierung der automatischen Zellberechnung
Application.Calculation = xlCalculationManual
'Löschen der alten Inhalte
DATA.Range(DATA.Cells(2, 5), DATA.Cells(50000, 6)).ClearContents
'Laufen über jede Zeile der GridView und schreiben der Werte in Tabelle DATA
With DATA
Dim k As Integer
For k = 0 To olGridView.RowCount - 1
.Cells(k + 2, 5).Value = olGridView.GetCellValue(k, "MATNR")
.Cells(k + 2, 6).Value = Int(Replace(olGridView.GetCellValue(k, "MVGR4"), ".", ""))
'Neusetzen der aktuellen Zelle in jeder 30. Zeile, dass keine Leerstrings geliefert werden
If (k Mod 30 = 0) Then olGridView.SetCurrentCell k, "MATNR"
'Ladebalken berechnen
qp.Report.setPercent (k + 1) / olGridView.RowCount
Next k
'Automatische Zellberechnung wieder aktivieren
Application.Calculation = xlCalculationAutomatic
[/code]
Wie gesagt bei Datensatz 420 kommt dieser Fehler.
Ich habe das Programm nicht geshrieben, sondern soll jetzt nur dafür sorgen, dass es wieder funktioniert.
Allerdings sitzte ich jetzt schon einen halben Tag davor und weiss nicht woran das liegen könnte.
In der Tabelle sind auch keine außergewöhnlichen Datensätze - es sind sich immer wiederholende Matnr.
Hat jemand eine Idee was hier falsch läuft
Ach ja, der Fehler tritt immer in folgender Zeile auf:
.Cells(k + 2, 6).Value = Int(Replace(olGridView.GetCellValue(k, "MVGR4"), ".", ""))
Vielen Dank