for schleife - wenn zeile leer, dann 0.0001
14.08.2019 11:39:48
Tara
ich habe einen Makro geschrieben, der alle ausgefüllten Zeilen eines Tabellenblatts durchgehen soll, wenn die Zeile leer ist, soll diese mit 0.0001 befüllt werden.
Leider funktioniert das irgendwie nicht
Sub ausfüllen()
Dim i As Long
Dim zelle As Range
Set zelle = Worksheets("Tbl_IMP_Ck40n").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To zelle
If zelle.Value = "" Then
zelle.Value = 0.00001
End If
Next
End Sub
Vielen Dank :)