|
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
|