Makro immer noch problematisch
20.01.2005 09:12:42
Roman
Nun wird zwar die oberste Zeile im Sheet "Basics" gelöscht, jedoch erfolgt kein neuer Übertrag in die nächste Zeile.
Ich verstehs einfach nicht, da das Makro bis vor 10 Tagen noch vollkommen problemlos gelaufen ist. (keine neue Version von Excel, keine Programmupdates)
Hätte bitte jemand wieder eine Idee, was da los sein könnte?
Hier nochmals das Makro. Vielen Dank!
'gasoil 10 ppm
With Worksheets("Basics")
Range(.Cells(2, 1), .Cells(2, 4)).Copy
.Cells(4, 1).PasteSpecial Paste:=xlFormats
r = Cells(65536, 2).End(xlUp).Row
.Cells(4, 1) = Cells(r, 1).Value
.Cells(4, 2) = Cells(r, 6).Value
.Cells(4, 3) = Cells(r, 7).Value
.Cells(4, 4) = Cells(r, 9).Value
'prem unl
.Cells(4, 10) = Cells(r, 1).Value
.Cells(4, 11) = Cells(r, 26).Value
.Cells(4, 12) = Cells(r, 27).Value
.Cells(4, 13) = Cells(r, 29).Value
'gasoil 0.2
.Cells(4, 19) = Cells(r, 1).Value
.Cells(4, 20) = Cells(r, 46).Value
.Cells(4, 21) = Cells(r, 47).Value
.Cells(4, 22) = Cells(r, 49).Value
.Cells(2, 1).EntireRow.Delete
End With
Gruß
Roman