|
Ich habe eine Tabelle in der ich nach einem bestimmten Datum filtere und die Inhalte entferne.
Danach führe ich den folgenden Code aus, der die selben Daten aus einer anderen Tabelle entnimmt und sie in der Excel "Zusammenfassung" einfügen soll, aber das funktioniert leider nicht.. Ich glaube, dass das daran liegt, dass die Tabelle noch einen aktiven Filter hat..?
Kann mir jemand helfen? :(
Seltsamerweise geht der Code auch nur eine Zeile runter, sobald ich " ActiveSheet.Paste" entferne.
Ansonsten bleibt der Code immer bei A1 stehen..
sub Update()
'Filterung
With Sheets("Tabelle1").Cells(1, 1).CurrentRegion
.AutoFilter Field:=10, Criteria1:=">=" & CLng(StartDate), Operator:=xlAnd, Criteria2:="<=" & CLng(EndDate)
End With
'Auswahl der Tabelle
ActiveSheet.Range("A1").Select
Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
tbl.Columns.Count).Select
Application.CutCopyMode = False
'Fenster-Wechsel
Windows("Zusammenfassung.xlsm").Activate
Worksheets("Referenz").Activate
'Paste Value
Sheets("Referenz").Range("A1").Select
SendKeys "{down}"
FirstRow = Replace(Right(ActiveCell.Address, 2), "$", "")
ActiveCell.Select
ActiveSheet.Paste -> ERROR
End Sub
|