Datenbereinigung mit makro
26.03.2003 11:07:01
Mirko Jacubowski
Sub Bereinigung()
Dim i As Integer
For i = 1 To Cells(65000, 3).End(xlUp).Row
If Cells(i, 3).Value < 1 Then Cells(i, 3) = 0
Next i
End Sub
Gruss und danke