Copy kopiert nur den Filter
11.10.2021 15:15:29
Eisi
ich komme einfach nicht weiter. Der "erste Sub" mit nachfolgendem Code funktioniert mit > .Range("F15:P43").Copy Aber der "zweite Sub" mit > .Range("F71:P97").Copy Ich studiere den Code schon rauf und runter, aber ich erkenne einfach den Grund nicht.
Vielen Dank für die Hilfe.
VG Eisi :-)
Sub KopierenNachZelleB10_2()
Application.ScreenUpdating = False
' Deklaration
Dim rngBereichFormat As Range
Dim lastrow As Long
With tbl_1_Kalkulation
.Range("A75:P89").AutoFilter Field:=2, Criteria1:="" ' 1) Filter setzen und leere Zellen ausblenden
.Range("F71:P97").Copy ' 2) Kompletten Tabellenbereich kopieren
End With
' 3) Letzte Zelle in Spalte 2 (B) suchen und den kopierten Bereich 2 Zellen darunter einfügen
With tbl_2_Positionen
lastrow = .Cells(.Rows.Count, 2).End(xlUp).Row + 9 ' Letzte Zelle in Spalte 2 (B) finden + 9 Zeilen darunter einfügen = Zelle B10
.Cells(lastrow, 2).PasteSpecial Paste:=xlValues 'Fügt die kopierten Werte ein.
.Cells(lastrow, 2).PasteSpecial Paste:=xlPasteFormats 'Überträgt die Formatierung.
' Formatiere die letzte Linie fett.
Set rngBereichFormat = .Range("B10:L" & .Range("B" & Rows.Count).End(xlUp).Row)
rngBereichFormat.Borders(xlEdgeBottom).Weight = xlMedium
End With
Application.CutCopyMode = False
tbl_1_Kalkulation.AutoFilterMode = False
Application.Goto tbl_1_Kalkulation.Range("A13")
Application.ScreenUpdating = True
End Sub