Makro läuft nicht mehr
24.01.2005 09:08:20
Roman
es soll immer der letzte Eintrag der Spalten A,F,G,I,Z,AA,AC,AT,AV,AW vom aktuellen Arbeitsblatt in die Spalten A,B,C,D,J,K,L,M,S,T,U,V des Sheets "Basics" übertragen werden (in A,J,S steht immer das Datum).
Danach soll noch die oberste Zeile 2 gelöscht werden, sodass am Ende nur noch die Einträge der letzten 2 Tage stehen bleiben.
Nun bleibt der Debugger immer in der Zeile "r = .Cells (65536, 2) ....." stehen.
Hier das Makro:
'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
End Sub
und hier die Datei Basics zum besseren Verständnis.
Die Datei https://www.herber.de/bbs/user/16446.xls wurde aus Datenschutzgründen gelöscht
Ich habe auch schon versucht, nur diese Datei alleine geöffnet zu lassen - leider ohne Erfolg.Hoffe ihr könnt mir helfen! Vielen Dank!
Gruß Roman