Overflow bei zeilenweisem vergleichen
10.09.2004 10:46:15
Bernhard
da habe ich nun endlich ein VB Makro welches mir doppelte Zeilen anhand einzelneer Felder markiert -
und dann bekopmme ich einen overflow.
Es sind 47973 Zeilen und die Salten A bis BS
Und das Makro das Probleme macht ist einfach aber funktionierte bisher:
Sub Doppelte_Zeilen_Spalte1_sortieren_und_markieren()
' vergleicht dann alle uebereinander liegenden Felder in Spalte A und markiert die doppelten Spalten rot
' Anzahl der Zeilen wird in A festgestellt
' Es gibt eine Überschriftenzeile
Dim I As Integer ' Startzeile ist Zeile 2 wegen der Überschrift
Dim J As Integer ' Durchlaufender Zähler
For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For J = Cells(Rows.Count, 1).End(xlUp).Row To I + 1 Step -1
If Cells(I, 1) = Cells(J, 1) And Cells(I, 4) = Cells(J, 4) Then
Rows(J).Interior.ColorIndex = 3
' Rows(J).Delete
End If
Next J
Next I
End Sub
Hat jemand eine Idee weshalb ich einen Fehler wie folgt bekomme:
Runtime error (6)
Overflow
Der Debuger geht dann in die Zeile:
For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Danke fuer Eure Hilfe.
Bernhard Stillger
Anzeige