leere Zellen auffüllen
09.10.2014 15:37:39
Henry
ich benutze diesen Code um leere zellen mit dem Wert aus der nächsten gefüllten Zelle die sich darüber befindet zu füllen.
Dieser VBA prüft allerdings nur Spalte B.
Wie müsste ich den VBA ändern damit er jede gefüllte Spalte A bis letzte Spalte keine Ahnung die selbe Prüfung und Auffüllung vornimmt ?
Dim I As Long, ar As Variant
With Range("B1:B" & Cells(Rows.Count, 1).End(xlUp).Row)
ar = .Value
For I = 3 To UBound(ar)
If Len(Trim(ar(I, 1))) = 0 Then ar(I, 1) = ar(I - 1, 1)
Next
.Value = ar
End With
Anzeige