Überlauf Problem 6
29.07.2014 09:46:10
Showd0wn
ich habe ein Problem mit dem Überlauf. Ich habe ziemlich viele Zeile (ca. 3500) und Spalten bis BC. Anfangs (mit ca. 2500 Zeilen) hat das alles problemlos funktioniert. Jetzt kommt aber bei der zweiten kursiven Zeile ein Überlauf Fehler.
Anfangs hatte ich auch nur eine Range von A:BC, wengen des Überlaufes habe ich gedacht, splitte ich das und mache 2 Range Objekte (var_Daten & var_Daten_Erweiterung). Aber auch das klappt nicht, bei dem 2. Objekt kommt immer ein Überlauffehler. Auch wenn ich in das 2. Objekt nur eine Zeile lege und in das erste alle anderen, kommt der Überlauffehler beim 2.
Wie kann ich das Problem lösen?
hier mein Code:
Dim i, j, k As Integer
Dim lng, row_Mas, row_Mas_2 As Double
Dim var_Daten, var_Daten_Erweiterung, var_Mas As Variant
Dim wksDaten As Worksheet
Const cstrDat As String = "*****"
Set wksDaten = Workbooks.Open(cstrDat).Sheets("***")
Windows(wksDaten.Parent.Name).Visible = False
ThisWorkbook.Activate
lng = wksDaten.Cells(Rows.Count, 3).End(xlUp).Row
var_Daten = wksDaten.Range("A9:AK" & lng).Value
row_Mas = Tabelle1.Cells(Rows.Count, 2).End(xlUp).Row
var_Mas = Tabelle1.Range("B4:U" & lng).Value
j = 4
For i = 1 To (lng - 8)
Tabelle1.Cells(j, 2).Value = var_Daten(i, 3)
Tabelle1.Cells(j, 3).Value = var_Daten(i, 5)
Tabelle1.Cells(j, 4).Value = var_Daten(i, 7)
j = j + 1
Next
var_Daten_Erweiterung = wksDaten.Range("AL9:BC" & lng).Value j = 4
For i = 1 To (lng - 8)
Tabelle1.Cells(j, 10).Value = var_Daten_Erweiterung (i, 3)
Tabelle1.Cells(j, 11).Value = var_Daten_Erweiterung (i, 4)
Tabelle1.Cells(j, 12).Value var_Daten_Erweiterung (i, 5)
...
Next
Gruß