MAkro anpassen
14.10.2005 16:07:31
Max
Sub FÜLLEN()
Dim lR As Integer, i As Integer
lR = Worksheets("FMS INPUT").Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To lR
If Cells(i, 1) = 0 Then Cells(i, 1) = Cells(i - 1, 1)
Next i
End Sub
Dieses Makro prüft die erste Spalte und füllt alle Zellen die leer sind mit dem Wert der in der Zelle drübersteht.
Jetzt will ich das Makro so anpassen, dass es mir die ersten 3 Spalten prüft. Bin für jeden Tipp dankbar.
Grüße Max
Anzeige