Bereich in nächste frei Zeile mit Datum kopieren
15.04.2008 13:14:27
lisa
Ich möchte gern einen Bereich angefangen von a3 bis Q nach unten offen in eine neue Mappe in die nächste freie zeile kopieren.
Dazu sollte in jeder Zeile des kopierten Bereichs in der Spalte R der Tag und das Datum mitgeschrieben werden.
Ist das möglich?
Ich habe mir dazu diesen Macro aufgezeichnet, aber so funktioniert es nicht.
Wer kann mir hier helfen?
Liebe Grüsse Lisa
Sub Makro1()
Range("A3:Q12").Select hier sollte es nicht beschränkt auf Q12 sein da hier mehrere
Zeilen kopiert werden könnten
Selection.Copy
Workbooks.Open Filename:="C:\Allg\Zellen füllen!.xls"
Range("A3").Select hier nicht A3 sondern nächste freie Zeile
ActiveSheet.Paste
Range("R3").Select hier sollte dann das Datum mit Zeit stehen, für den aktuell
kopierten Bereich
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=NOW()"
Range("R3").Select
Selection.AutoFill Destination:=Range("R3:R11"), Type:=xlFillDefault
Range("R3:R11").Select
Selection.AutoFill Destination:=Range("R3:R12"), Type:=xlFillDefault
Range("R3:R12").Select
Range("R12").Select
ActiveWorkbook.Save
ActiveWindow.Close
Range("A3").Select
End Sub