Problem mit Chr (13) bzw. chr(i)
04.11.2004 15:58:22
ray
For i = Asc(Char) + 1 To Asc("z")
endRng = WorksheetFunction.Match(Chr(i) & "*", .Range("D:D"), 0)'HIER
If Err.Number <> 0 Then
Err.Clear
End If
If endRng > 0 Then
Exit For
End If
Next i
Hat jemand ne idee?
Grüße aus dem diesigen Hamburg
ray