Type mismatch
01.06.2006 19:26:24
Alex
Moechte mit der Schleife eine Formel in die Zellen schreiben lassen.
Waere ueber jede Hilfe dankbar.
Sub try()
With Worksheets("All IE's")
For i = 1 To 20000
.Range("Q" & i).Value = _
"=IF(A" & i & "="","",COUNTIF(F" & i & "," * Name * "))"
Next
End With
End Sub
Danke
Anzeige