habe mit folgendem Phänomen zu kämpfen:
Auf zwei PC's habe ich jeweils EXCEL2000 im Einsatz;
A) mit WIN98
B) mit WIN NT
Bei A) läuft nachstehender Code problemlos durch; bei B) kommt die im Code
beschriebene Fehlermeldung - wie gibts sowas?
Sub Test()
' Dim r As Range, intSpalte As Integer, i As Long, s As Long
Dim iRow As Integer, iRowL As Integer
''Doppelte BE-Nrn. finden
Cells(2, 4 + 17) = "Testvorgang"
' Laufzeitfehler 6 / Überlauf
' iRowL = 0
' Rows.Count = 65536
' End(xlUp) = -4162
iRowL = Cells(Cells.Rows.Count, 3).End(xlUp).Row ' hier vorgenannte Fehlermeldung
For iRow = iRowL To 1 Step -1
If WorksheetFunction.CountIf(Columns(4 + 1), Cells(iRow, 4 + 1)) > 1 Then
Cells(iRow, 4 + 17) = "testen"
End If
Next iRow
End Sub
Besten Dank für eine Hilfe!
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
Private Tippgemeinschaft für Lotto oder KENO: http://www.kenostrategen.de