Hallo Zusammen,

ich habe folgendes Problem:

Ich möchte mit einem Makro über einen Commandbutton eine Tabelle kopieren und diese in ein neues Blatt einfügen.

Die Tabelle die ich kopieren und einügen möchte ist Inhalt der Rechnungen die ich schreibe und hat mal nur 1 Position und manchmal mehr als 15.

Diese zu kopieren und untereinander einzufügen klappt ganz gut. (immer wenn ich eine neue Rechnung schreibe, füge ich die Positionen unten ein und kann über eine Pivottabelle anschließend alles auswerten)

Ich möchte allerdings dass es mir hinter die eingefügte Tabelle noch Kundennummer und Rechnungsnummer einfügt, und zwar in Abhängigkeit von der Anzahl der Positionen.

Mein bisheriger Code fügt mir die Rechnungsnummer und Kundennummer nur einmal ein und auch nicht an der richtgen Stelle. Es soll immer bei Position 1 der "neuen Rechnung" anfangen.

Ich hoffe ihr versteht mein Problem, wenn nicht werde ich versuchen die Datei online zu stellen.

Mein Code:

Private Sub Rechnungspositionen_Click()

Range("Tabelle1").Copy

With Worksheets("Statistik")
    .Range("A" & .Cells(.Cells.Rows.Count, "A").End(xlUp).Row + 1).PasteSpecial _
        Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With

Range("H12").Copy

With Worksheets("Statistik")
    .Range("I" & .Cells(.Cells.Rows.Count, "I").End(xlUp).Row + 1).PasteSpecial _
        Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With

Range("H13").Copy

With Worksheets("Statistik")
    .Range("J" & .Cells(.Cells.Rows.Count, "J").End(xlUp).Row + 1).PasteSpecial _
        Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
End Sub

 Danke und liebe Grüße,

Michi