Laufzeitfehler'6' im Makro "Fehlende Zahlen..."
11.04.2002 09:34:15
Sven
ich habe mir aus dem Archiv ein Makro kopiert, das die in Spalte A fortlaufenden Nummern auf fehlende Nummern überprüft und diese in die Spalte B einträgt.
In einer Tabelle mit ca. 7.500 Datensätzen funktioniert das Makro. Meine Tabelle hat aber ca. 15.000 Datensätze und dann erscheint die Fehlermeldung:
" Laufzeitfehler'6' "
" Überlauf "
Kann jemand das folgende Makro bearbeiten, dass es auch bei einer größeren Liste funktioniert?
Option Explicit
Sub FehlNum()
Dim intLast%, intMax%, intCount%, intCount2
Dim strRng$
Dim vorhanden
intLast = Range("A1").End(xlDown).Row
strRng = "A1:A" & LTrim(Str(intLast))
intCount2 = 1
intMax = WorksheetFunction.Max(Range(strRng))
For intCount = 1 To intMax
On Error GoTo Errorhandler:
vorhanden = Range(strRng).Find(What:=intCount, LookAt:=xlWhole)
Next intCount
Exit Sub
Errorhandler:
Cells(intCount2, 2).Value = intCount
intCount2 = intCount2 + 1
Resume Next
End Sub
Anzeige