Ich versuche, Daten aus dem Arbeitsblatt „Projektzusammenfassungsdaten“ zu kopieren und in eine Tabelle im Arbeitsblatt „Projektkostenberichtszusammenfassung“ einzufügen. Ich bin sehr neu bei Makros und bin mir daher nicht sicher, was ich hier falsch mache, aber der Fehler scheint in diesem Teil zu liegen tbl.Range("D7").Paste.
Ich muss die Daten in Zelle „D7“ in der „Zusammenfassung des Projektkostenberichts“ einfügen, was technisch gesehen die erste Datenzeile in der Tabelle (keine Überschriften) und die vierte Spalte der Tabelle wäre.
Der Fehler, den ich erhalte, ist der Laufzeitfehler „1004“: Die Auswahleigenschaft der Bereichsklasse kann nicht abgerufen werden.
Sub filter_copy_paste()
Dim region As String
Dim Report As Worksheet
Dim Data As Worksheet
Dim count_col As Integer
Dim count_row As Integer
Dim tbl As ListObject
Set Report = ThisWorkbook.Sheets("Project Cost Report Summary")
Set Data = ThisWorkbook.Sheets("Project Summary Data")
region = Data.Range("I1").Text
Set tbl = Report.ListObjects("Table2")
'determine the size of the range
Data.Activate
count_col = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlToRight)))
count_row = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlDown)))
'filter data on Raw Data tab
Data.Range("A1").AutoFilter field:=1, Criteria1:=region
'Copy and Paste to Cost Report
Data.Range(Cells(2, 2), Cells(count_row, count_col)).SpecialCells(xlCellTypeVisible).Copy
tbl.Range("D7").Paste
Application.CutCopyMode = False
'Show Data and Remove the Filter
With Data
.ShowAllData
.AutoFilterMode = False
End With
End Sub