Schleife..werte kopieren
03.12.2004 11:40:24
Jan
hab ein kleines prob mit meinem excel sheet:
in spalte a befinden sich werte in den einzelnen zellen, wobei einige zellen leer sind. ein kleines makroprogramm soll mir nun in die leerzellen den wert der darüberliegenden zelle kopieren:
Sub Copy()
Dim lastRow As Long
Dim zz As Long
lastRow = Worksheets(1).Range("A65536").End(xlUp).Row + 1 '"Book1"
For zz = 7 To lastRow
If IsEmpty(cells(zz, 1)) Then cells(zz, 1) = cells(zz - 1, 1)
Next
End Sub
das prob liegt nun darin, dass das programm das excel sheet nicht bis zum schluss(ca. 4000 zeilen) durchläuft, soondern bei zelle 1474 aufhört, die werte zu kopieren.
ich hab keinen plan woran das liegt..Kann mir jemand helfen?
noch ein kleines prob...
...ich möcht das makro über einen eigenen command button in der menüleiste abspeichern, damit ich die file per mail weiterleiten kann, weil mehrere leute das makro benötigen..die file wird zwar verschickt, jedoch ohne das makro..
wie kann ich denn makros abspeichern, damit mehrere leute zugriff haben?
vielen dank
;)