Hallo Experten, nachdem nun der Laufzeitfehler mit eurer Hilfe behoben ist, gibts nun ein anderes Problem:
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