Rechchungs journal
08.10.2003 19:41:17
franzel
bin mit meiner weisheit am ende, oder sehe den wald vor lauter bäumen nicht mehr.
Habe eine kleine :-> lagerverwaltung erstellt in der auch Rechnungen erzeugt werden. Da hans ja immer sagt das es keinen sinn macht die ganze rechnung zu archivieren habe ich folgende code genutzt um aus der Rechnung bestimmte zellen in ein Joournal zu kopieren das sich in der selben mappe befindet. Ntürlich muß es so sein das die Werte immer in die nächst leere zelle geschieben wird.
zur Verdeutlichung der code.
Wäre schön wenn mir jemand helfen könnte, vorab schon mal vielen dank das Ihr euch die zeit genommen habt diesen Beitrag zu lesen:
Sub journal()
Application.ScreenUpdating = False
Sheets("rechnung").Activate
Range("e12;j16;j15;j12;j14;j40;j41").copy
Selection.copy
Sheets("Journal").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub