ich plage mich mit einem ansich einfachen makro herum.
es beginnt in zelle H4400 und soll den wert der dort steht in die Zellen darüber kopieren bis es auf eine zelle stößt in der ein anderer wert steht und dann diesen nach oben kopieren.
Also in H4400 steht 521 der nächste wert steht in H4328. das makro soll also nun 521 in die Zellen H4399 bis H4329 kopieren dann den wert aus H4328 lesen und diesen dann bis nach HXXXX kopieren und so weiter bis in die erste Zelle.
Dieses makro hab ich zusammenprogrammiert. es funktioniert aber nicht.
tausend dank im voraus - paul
Sub Makro4()
Do
Selection.Copy
ActiveCell.Offset(-1, 0).Range("A1").Select
While IsEmpty(Range("A1"))
ActiveCell.Paste
ActiveCell.Offset(-1, 0).Range("A1").Select
Wend
Loop
End Sub