Makrofehler?
Roman
Zum näheren Verständnis habe ich eine Musterdatei angefügt.
https://www.herber.de/bbs/user/5505.xls
Benni hat mir dankenswerter Weise dieses Makro zukommen lassen.
Sub Datenübertrag()
With Worksheets("Basics")
Range(.Cells(2, 1), .Cells(2, 4)).Copy
.Cells(4, 1).PasteSpecial Paste:=xlFormats
r = Cells(65536, 1).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
.Cells(2, 1).EntireRow.Delete
End With
End Sub
Allerdings funktioniert da irgendwas nicht. Es wird immer in der Datumszeile der 31.12.2003 ausgegeben, sonst werden keine Daten übertragen.
Könnte mir bitte jemand verraten, wo der Fehler liegt?
Ich wäre sehr dankbar für Eure Hilfe!
Roman
Anzeige