Ich möchte aus der aktuellen Tabelle (Vorkalkulation) den Bereich von E70:S70 in die Tabelle Offertstatistik übertragen.
Mein Code funktioniert bis auf das PasteSpecial. Ich habe herausgefunden, dass der Inhalt vom Clipboard nach tbl.ListRows.Add leer ist.
In der Vorkalkulation sind die Daten berechnet, in der Offerstatistik sollen nur die Werte kopiert werden (keine Formate, keine Formeln).
Sub Statistik2()
'Übertrag der OffertstatistikZeile
'
Dim wb As Workbook
Dim NeueZeile As Long
Dim tbl As ListObject
Dim lastRow As Long

'Kopierzeile aus Vorkalkulation in Zwischenspeicher
Range("E70:S70").Copy
'Offertstatistik öffnen, falls noch nicht offen
On Error Resume Next
Set wb = Workbooks("K:\_Verkauf\4_Statistik\Offertstatistik.xlsm")
On Error GoTo 0
If wb Is Nothing Then
Set wb = Workbooks.Open("K:\_Verkauf\4_Statistik\Offertstatistik.xlsm")
End If
'Wechseln in die Offertstatistik
wb.Activate

'im Blatt Übersicht hat es eine Tabelle Uebersicht, letzte Zeile herausfinden und eine neue hinzufügen
Set tbl = wb.Sheets("Übersicht").ListObjects("Uebersicht")
lastRow = tbl.ListRows.Count + tbl.Range.Row
tbl.ListRows.Add
'funktioniert bis hier, aber jetzt ist das Clipboard leer
tbl.ListRows(lastRow).Range.Cells(1, 3).Resize(1, 15).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub