Makro ergänzen bitte!!
13.09.2005 12:25:35
Achim
Wer kann dieses Makro ergänzen?
Das Makro soll nur soviel Einträge aus der Liste U3 vornehmen wie Einträge
ab D2 bis Ende vorhanden.
Sub punkteEinfügen()
Dim i&, Lz&
Lz = Cells(Rows.Count, 1).End(xlUp).Row
With ActiveSheet
For i = 2 To Lz
If .Cells(i, 2) <> "" Then
.Cells(i, 17) = .Range("U3")
End If
Next
End With
End Sub
Gruß Achim H.
Anzeige