Mittels VBA Gesamtsumme von Honorarnote auf eigenes Arbeitsblatt kopieren

[amulav]

Guten Abend Leute,

ich möchte meinen Freund die Arbeit etwas erleichtern und brauche eure Hilfe.

Ich habe eine Honorarnote auf ein Arbeitsblatt erstellt und kann diese mittels Button immer wieder auf ein neues Arbeitsblatt kopieren. So wird Zeit gespart.

Nun möchte ich aber die Gesamtsumme und die HonorarNr. auf ein eigenes Arbeitsblatt kopieren. Am besten automatisch ansonsten auch via Button wenn es nicht anders gehen sollte.
Auf diesem Arbeitsblatt soll nur die Gesamtsumme mit der davor richtigen HonorarNr. stehen die auch auf jeder Rechnung drauf ist.

Das kopieren von Arbeitsblättern via Button habe ich mittels Makroaufzeichnung sehr schnell hinbekommen aber bei der anderen Sache reicht mein wissen nicht ::(
Es müsste ja immer wieder in eine neue darunter liegende Zeile kopiert werden.

Ich hoffe ihr könnt einen Anfänger hier weiter helfen.

Liebe Grüße

[Käpt'n Blaubär]

Hallo,

dann mach' das doch. Bei vier bereits erstellten Threads solltest Du wissen, was die Helfer brauchen.

Ich jedenfalls kann Dir kein Makro schreiben.
Weil ich Deine Datei  und so Einiges andere nicht kenne, wirst Du das wohl selbst erledigen müssen.

[schauan]

Hallöchen,

eigentlich würde die Codezeile mit dem Einfügen für punktgenaue Hilfe schon reichen

Du hast z.B. in A1 eine Überschrift und dann Range("A2").Paste
Dadurch wird immer in A2 eingefügt. Wenn Du es unter den letzten Eintrag haben willst, dann z.B.

Cells(Rows.Count, 1).End(xlUp).Offset(1,0).Paste

[amulav]

Hallo,

dann mach' das doch. Bei vier bereits erstellten Threads solltest Du wissen, was die Helfer brauchen.

Ich jedenfalls kann Dir kein Makro schreiben.
Weil ich Deine Datei  und so Einiges andere nicht kenne, wirst Du das wohl selbst erledigen müssen.

Hallo Käpt'n,

vielen dank für deine Antwort.

Sorry habe nicht daran gedacht die Datei hochzuladen was ich hiermit nachholen möchte.
Ein Makro was mir die Honorarnoten auf Klick kopiert habe ich bereits erstellt.

Nun bräuchte ich eben die Gesamtsummen aller Honorarnoten auf dem ersten Arbeitsblatt.
Habe jetzt noch einiges probiert aber VBA ist dann noch nicht so easy wie gedacht :22:

Liebe Grüße

[amulav]

Hallöchen,

eigentlich würde die Codezeile mit dem Einfügen für punktgenaue Hilfe schon reichen

Du hast z.B. in A1 eine Überschrift und dann Range("A2").Paste
Dadurch wird immer in A2 eingefügt. Wenn Du es unter den letzten Eintrag haben willst, dann z.B.

Cells(Rows.Count, 1).End(xlUp).Offset(1,0).Paste

Hallo Schauan,

vielen dank für deine Antwort.
Habe die Datei nun Hochgeladen :19:

Liebe Grüße

[schauan]

Hallo amulav,
Bin bis Sonntag nur am Smartphone und da wird es nix. Mit programmieren. Vielleicht kann bis dahin jemand anderes helfen, sonst wird es erst Montag