habe wieder ein problem mit meinen Code
Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
Sheets("Ergebnisliste").Activate
Columns("A:O").AutoFilter Field:=4, Criteria1:="Altersklasse"
Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
'Selection.AutoFilter
Sheets("Altersklasse").Activate
Range("A2").PasteSpecial xlPasteValues
Rows(2).Delete
Selection.AutoFilter
Selection.AutoFilter
Sheets("Ergebnisliste").Activate
Selection.AutoFilter
Sheets("Übersicht").Activate
Application.ScreenUpdating = True
End Sub
ich kann zwar Kopieren und einfügen, aber die Formeln sind weg, es steht nur noch der wert in der Zelle (Einfügen)
kann mir jemand weiterhelfen?
gruß
erich