Kopieren Einfügen per VBA

ÖmerulfarukSubasi · 15. Februar 2018

Hallo

Habe eine Rechnung mit Excel erstellt mit fortlaufender Rechnungsnummer und einer Dropdownliste für die zur Verfügung stehenden Artikel.

Ich möchte nun mit einem Klick auf dem Button, das die Daten im das nächsten Arbeitsblatt in die Tabelle kopiert werden.

Danach möchte ich wieder eine neue Rechnung schreiben mit anderen Artikeln und dann wieder per klick auf Button im nächsten Arbeitsblatt unter die schon vorhandenen Daten einfügen.

ein Beispiel

1 A B C D E
2 Rechnung 2018 / 1
3
4 Anzahl Artikel Einzelpreis MwSt Gesamtpreis
5 1 Hier Dropdownliste zum Wahlen 50€ .... ....

Anderes Arbeitsblatt

1 A B C D E F
2 Rechnung Anzahl Artikel Einzelpreis MwSt Gesamtpreis
3 2018 / 1 1

nun folgt eine neue Rechnung

1 A B C D E
2 Rechnung 2018 / 2
3
4 Anzahl Artikel Einzelpreis MwSt Gesamtpreis
5 5 Hier Dropdownliste zum Wahlen 100€ .... ....

und wieder der Eintrag in das nächste Arbeitsblatt

1 A B C D E F
2 Rechnung Anzahl Artikel Einzelpreis MwSt Gesamtpreis
3 2018 / 1 1 .... 50€ .....
4 2018 / 2 5 ..... 100€ ....

usw..

Danke schonmal allen im Voraus

ÖmerulfarukSubasi

Hallo Claus,

Ich dachte daran, dass ich nach Bedarf eines weiteren Produkts eine Zeile hinzufüge. Es fiel mir keine Möglichkeit ein, die Tabelle automatisch zu verlängern.

Zusätzlich wollte ich mit dem kopieren und einfügen erreichen, dass die Daten beim Klick auf "Rechnung erhöhen" in "Rechnung-Übersicht", "Rechnungsdetails" und evtl. bei Barzahlung in "Kasse" eingefügt werden.

Ich habe noch einiges vor in der Datei z.B. eine Auswertung, die ich schon vorbereitet habe.

z.Z. versuche ich mich an der Bezahlung, wie du vielleicht bemerkt hast, damit am Ende "noch offen" oder " schon bezahlt" steht.

Danke nochmals im voraus für deine Bemühungen

ÖmerulfarukSubasi

Hallo,

wo kann ich deine Korrektur finden?

es ist kein link hinterlegt!

Claus Busch

Hallo,

die Makros funktionieren nicht, weil dein Tabellenlayout anders ist, als in der Fragestellung beschrieben.

Die Umbuchung habe ich nun korrigiert.

Aber was ist mit der Rechnung? Sollen die Daten nach "Rechnungs-Übersicht" oder "Rechnungs-Details"? Ist immer nur 1 Posten auf der Rechnung oder fügst du Zeilen ein, wenn mehr Artikel gekauft werden?

Claus

Claus Busch

Hallo,

wenn das Blatt mit der Rechnung "Rechnung" und das andere Blatt "Tabelle2" heißt, dann probiere es mal so (sonst Namen in den Blättern oder dem Code anpassen):

Private Sub CommandButton1_Click()

Dim dest As Range, myRng As Range

Dim LRow As Long
Set dest = Sheets("Tabelle2").Cells(Rows.Count, "B").End(xlUp)(2)

With Sheets("Rechnung")

   LRow = .Cells(.Rows.Count, "A").End(xlUp).Row

   Set myRng = .Range("A4:E" & LRow)

   dest.Offset(, -1) = .Range("C1")

   dest.Resize(myRng.Rows.Count, myRng.Columns.Count).Value _

      = myRng.Value

End With

End Sub

Claus

Claus Busch

Hallo,

da ist aber nur die Korrektur für den Übertrag der Kasse drin. Zu der Rechnung bin ich noch nicht gekommen.

https://1drv.ms/x/s!AqMiGBK2qniTgcRAYVAMTfI5GE9y6g

Claus

Hi,

willkommen im Windows Forum!

Kopieren Einfügen per VBA - Similar Threads - Kopieren Einfügen VBA	Forum	Datum
Kopieren und einfügen Kopieren und einfügen: wenn ich einen Zellinhalt z.B. Text in Schriftgrösse 10 in eine andere Zelle kopieren, so erscheint in der Zielzelle der Text, aber in der Schriftgrösse 14 der Zielzelle. Ich möchte aber die...	Microsoft Office	16. Januar 2024
per VBA in Fußzeilen eine farbige Linie einfügen per VBA in Fußzeilen eine farbige Linie einfügen: Hallo Leute,ich bin so langsam am Ende mit meinem Latein. Ich habe folgendes Problem:Es gibt ein Word-Dokument, mit abweichenden Kopf- u. Fußzeilen 1. Seite und Folgeseite. In diesen Kopf- u....	Microsoft Office	5. Oktober 2023
Logo per VBA in Kopfzeile einfügen Logo per VBA in Kopfzeile einfügen: Hallo,habe ein Makro mit dem Recorder aufgezeichnet welches ein Logo in die Kopfzeile einfügen soll!Welches aber nicht funktioniert, hat jemand eine Idee, wie es funktioniert bzw. was ich falsch...	Microsoft Office	12. September 2023
Screenshot aus Zwischenablage per VBA-Marko in Bild-Steuerelement einfügen Screenshot aus Zwischenablage per VBA-Marko in Bild-Steuerelement einfügen: Hallo Zusammen, für eine PowerPoint-Vorlage benötige ich ein VBA-Makro, mit dem ich ein Screenshot aus der Zwischenablage in ein Bild-Steuerelement einfügen kann. Die Präsentation sollte dabei...	Microsoft Office	15. März 2019
VBA Tab kopieren, benennen, und Daten aus Zellen in bestimmte Felder einfügen VBA Tab kopieren, benennen, und Daten aus Zellen in bestimmte Felder einfügen: Ein freundliches Hallo an Alle! Ich möchte per VBA einige Vorgänge vereinfachen und habe keine Ahnung, wie ich es anstellen soll oder ob dies überhaupt möglich ist. Freue mich über jede Hilfe....	Microsoft Office	9. August 2018
Excel VBA 365 Zellbereich kopieren und in anderem Tabellenblatt einfügen inklusive aller Shapes Excel VBA 365 Zellbereich kopieren und in anderem Tabellenblatt einfügen inklusive aller Shapes: Hallo Community, ich habe folgendes Problem mit Excel 2016 VBA: Ich möchte wie gewohnt einen Zellbereich inklusive aller Shapes kopieren und in ein anderes Tabellenblatt einfügen. Methode .copy...	Microsoft Office	15. Mai 2018
VBA Hyperlink kopieren VBA Hyperlink kopieren: Hallo, ich habe 2018 begonnen alle Rechnungen digital abzulegen. Die Rechnungen werden in einer Urliste verschlagwortet. Die Urliste beinhaltet u. a. einen Link über den sich die Rechnung...	Microsoft Office	25. Februar 2018

Kopieren Einfügen per VBA