ich beschäftige mich seit kurzen mit VDA und bin noch ein Anfänger.
Ich habe mir folgendes Makro geschrieben, um Werte von einer Mappe in eine weitere Mappe zu kopieren.
Das Makro ist einem Button zugewiesen und es funktioniert soweit alles :).
Aber ich möchte jetzt noch, dass die Werte in der Mappe "Journal" immer in eine neue Zeile einfügt werden, wenn der Button aktiviert wird. Zudem sollten am Schluss alle Wert von der Mappe "Checkliste" gelöscht werden.
Ich hoffe es ist verständlich und danke schon mal für die Antworten. :)
Sub Übertragen()
Sheets("Checkliste").Range("B1").Copy
Sheets("Journal").Range("A4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("B2").Copy
Sheets("Journal").Range("B4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("C2").Copy
Sheets("Journal").Range("C4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K6").Copy
Sheets("Journal").Range("L4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K7").Copy
Sheets("Journal").Range("M4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K8").Copy
Sheets("Journal").Range("N4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K9").Copy
Sheets("Journal").Range("O4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K10").Copy
Sheets("Journal").Range("P4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K11").Copy
Sheets("Journal").Range("Q4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K17").Copy
Sheets("Journal").Range("S4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K18").Copy
Sheets("Journal").Range("T4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K19").Copy
Sheets("Journal").Range("U4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("O17").Copy
Sheets("Journal").Range("V4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K26").Copy
Sheets("Journal").Range("Z4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K27").Copy
Sheets("Journal").Range("AA4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K28").Copy
Sheets("Journal").Range("AB4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K29").Copy
Sheets("Journal").Range("AC4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K30").Copy
Sheets("Journal").Range("AD4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K35").Copy
Sheets("Journal").Range("AF4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K36").Copy
Sheets("Journal").Range("AG4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K37").Copy
Sheets("Journal").Range("AH4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K41").Copy
Sheets("Journal").Range("AJ4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K45").Copy
Sheets("Journal").Range("AN4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K46").Copy
Sheets("Journal").Range("AO4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K47").Copy
Sheets("Journal").Range("AP4").PasteSpecial xlPasteValues
Sheets("Checkliste").Range("K48").Copy
Sheets("Journal").Range("AQ4").PasteSpecial xlPasteValues
End Sub
Grüße
Flo