Daten kopieren
27.12.2017 10:55:25
Timm
Bei dieser Zeile erhalte ich einen Fehler
Sheets("Dashboard").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial
Sub Datenkopieren()
Dim variable As String
variable = [A1]
With Sheets(variable).UsedRange
.AutoFilter Field:=11, Criteria1:="x"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
End With
Sheets("Dashboard").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets(variable).UsedRange.AutoFilter
End Sub
Danke für eure Hilfe