Laufzeitfehler 6 - Überlauf
11.06.2004 16:10:32
Torsten
in meiner Datei soll Excel in einem Register eine Spalte nach einem bestimmten Kriterium durchsuchen, und das Ergebnis in einem anderen Register anzeigen.
Der entsprechende Code sieht folgendermaßen aus (Auszug):
(...)
Select Case Sheets("PNLevel").Range("B3")
Case Is = Sheets("PNLevel").Range("B3")
For i = 2 To 43245
If Sheets("DATEN").Range("E" & i).Value = Sheets("PNLevel").Range("B3").Value Then
Sheets("DATEN").Range("A" & i & ":B" & i).Copy
Sheets("PNLevel").Range("A" & J).PasteSpecial Paste:=xlPasteValues
Sheets("DATEN").Range("H" & i & ":I" & i).Copy
Sheets("PNLevel").Range("C" & J).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
J = J + 1
End If
Next
End Select
(...)
Leider kommt's zur oben genannten Fehlermeldung. Offensichtlich sind Excel die 43.000 Zeilen zuviel. (In einer anderen Datei funktioniert diese Suche mit etwas über 17.000 Zeilen tadellos).
Meine Frage ist jetzt: Liegt das tatsächlich an der Anzahl der Zeilen, die zu durchsuchen sind, oder ist die Programmierung vielleicht verbesserungswürdig.?Gibt es möglicherweise bessere Vorgehensweisen?
Für Eure Hilfe im voraus besten Dank.
Gruß
Torsten