Formel Copieren
25.07.2004 12:11:54
e
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
Anzeige