Code bitte anpassen :-)
12.10.2006 09:32:01
Ralf
ich habe hier einen Code, der auch ganz toll funktioniert,
nur kann mir bitte jemand sagen, wie man ihn anpassen muß,
damit ich ihn auf Spalte B anwenden kann ?
Private Sub CommandButton1_Click()
Dim letzte As Long
Dim z As Long
letzte = Range("a10000").End(xlUp).Row
For z = 14 To letzte
If Cells(z, 1) = "" Then Cells(z, 1) = Range(Cells(z, 1).Address).Offset(-1, 0)
Next
End Sub
Bin für jeden Tipp dankbar !!!
Viele Grüße
Ralf