Hallo zusammen,

ich hab ein Problem.

Ich möchte mit einem Commandbutton einen Code durchführen der mir den Inhalt einer Tabelle (Rechnungstabelle mit allen verkauften Positionen) in ein extra Sheet (in die Statistik) einfügt und zwar untereinander, damit ich später eine Statistik erstellen kann.

Der Code den ich habe funktioniert soweit auch ganz gut. Da die Rechnungstabelle aber nicht immer gleich groß ist und manchmal nur 1 und manchmal aber auch 10 Positionen beinhaltet möchte ich, dass der Code nur den Bereich aus der Tabelle kopiert und einfügt der auch einen Inhalt hat.

Der Code funktioniert bei 2+ Positionen perfekt, jedoch wenn ich nur eine Position hab, dann kopiert er mir den Text unter der Tabelle auch mit.

Könnt ihr mir helfen? Stell demjenigen der die Datei braucht auch gerne zur Verfügung.

Private Sub CommandButton1_Click()
Dim loLetzteR As Long
Dim loLetzteA As Long
Dim raBereich As Range

Application.ScreenUpdating = False

With Worksheets("RG")
    loLetzteA = Worksheets("Statistik").Cells(Rows.Count, 1).End(xlUp).Row + 1
    loLetzteR = .Cells(22, 1).End(xlDown).Row
    Set raBereich = .Range(.Cells(22, 1), .Cells(loLetzteR, 8))
    raBereich.Copy
    Worksheets("Statistik").Cells(loLetzteA, 1).PasteSpecial xlPasteValuesAndNumberFormats
    Worksheets("Statistik").Cells(loLetzteA, 9).Resize(raBereich.Rows.Count) = .Cells(12, 8).Text
    Worksheets("Statistik").Cells(loLetzteA, 10).Resize(raBereich.Rows.Count) = .Cells(13, 8).Text
End With

Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub