leere Zellen Auffüllen
06.08.2005 12:08:35
Thomas
in Spalte A habe ich eine Menge an Zahlen. In einigen Zellen fehlen aber Zahlen. Diese leeren Zellen möchte ich dann mit diesen Makro Auffüllen lassen.
Leider funktioniert dieses Makro nicht.
Wo liegt der Fehler?
Sub Auffüllen_Der_Spalte_A()
Application.ScreenUpdating = False
z = Range("A65536").End(xlUp).Row - 1
For i = 3 To z
If IsEmpty(Cells(i + 1, 1)) Then
Cells(i + 1, 1) = Cells(i, 1)
End If
Next i
Application.ScreenUpdating = True
End
Sub
Mit freundlichen Grüßen
Thomas