ich übertrage gerade meine Mustertabelle auf die Originaltabelle. Das funktioniert nicht so wie ich es mir gedacht habe. Darum stoße ich laufend auf neue Probleme.
Hier bleibt der Code hängen:
'*** 2) Kopiere den gefilterten Bereich
With tbl_1_Kalkulation
Set rngBereich = .Range("F15:P43") ' Der Bereich in der Tabelle "Platten", der kopiert werden soll
rngBereich.Copy ' Kopiere den Bereich
End With
'*** 3) Letzte Zelle in Spalte 8 festlegen und Kopie 2 Zellen darunter einfügen
With tbl_2_Positionen
lastrow = .Cells(.Rows.Count, 8).End(xlUp).Row + 2 ' Letzte Zelle in Spalte 8 finden + 2 Zeilen darunter
' Ab hier kommt die Fehlermeldung !!!!!!!!!!!!!!!!!!!!!!!
.Cells(lastrow, 2).PasteSpecial Paste:=xlValues 'Fügt die kopierten Werte ein.
.Cells(lastrow, 2).PasteSpecial Paste:=xlPasteFormats 'Überträgt die Formatierung.
Application.CutCopyMode = False
End With
Ziel der Aktion:
Der Tabellenbereich soll mit Werten und Formatierung in das andere Blatt eingefügt werden.
Danke für die Hilfe.
VG Eisi :-)