Hallo
Ich kopiere mir aus dem Tabellenblatt DATEN ein paar Zellen jeweils von der Zeile zwei, bis zum Ende und füge diese in das Tabellenblatt ABLAGE an entsprechender Stelle wieder ein, das funktioniert soweit
lngRow = Worksheets("Daten").Cells.Find("*", , xlValues, 2, 1, 2, False, False).Row
lngRow2 = Worksheets("Ablage").Cells.Find("*", , xlValues, 2, 1, 2, False, False).Row
Worksheets("Daten").Range("A2:AF" & lngRow).Copy Worksheets("Ablage").Range("E" & lngRow2 + 2)
Worksheets("Daten").Range("AG2:BZ" & lngRow).Copy Worksheets("Ablage").Range("AL" & lngRow2 + 2)
lngRow3 = Worksheets("Ablage").Cells.Find("*", , xlValues, 2, 1, 2, False, False).Row
Worksheets("Ablage").Range("CF & lngRow2 & : & CF& lngRow3" + 2) = Now
Nun wollte ich in der Spalte CF einen Zeitstempel setzen und zwar angefangen vom Startpunkt, der mit lngRow2 ermittel wurde, bis zum neu ermittelten Ende lngRow3
Dazu wollt eich mir den Range zusammenbasteln mit :
Range("CF & lngRow2 & : & CF& lngRow3" + 2)
Das zusammenbasten funktioniert aber irgend wie nicht. Sieht jemand, was ich falsch mache, oder gibt es eine einfachere Lösung ?
Danke
Jockel