Daten kopieren
16.01.2005 19:13:00
Mike
ich hab ein kleines Problem. Im nachfolgenden Beispiel filtere ich an drei verschiedenen Stellen und möchte die gefilterten Daten in eine bestehende Datei kopieren.
Es handelt sich hierbei um eine große Datenmenge und einige Zellen sind mit, andere ohne Formeln.
Mein Problem ist, dass in der anderen Datei zwar die Werte aber nicht die Formeln ankommen. In der Recherche treffe ich immer auf das gegenteilige Problem, die Leute wollen die Formeln nicht mitkopieren.
Vielen Dank für Eure Hilfe,
Mike
Sub auslag()
Dim strDatAusl
Sheets(cHauptmaske).Select
Worksheets(cHauptmaske).Activate
Calculate
Selection.AutoFilter Field:=19, Criteria1:="<=" & strDatAusl, Operator:= _
xlAnd
Selection.AutoFilter Field:=21, Criteria1:="<>", Operator:=xlAnd
Selection.AutoFilter Field:=33, Criteria1:="=", Operator:=xlAnd
Range("A3").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
Workbooks.Open Filename:= _
"D:\..pfad..\buhistn.xls"
ActiveSheet.Paste Destination:=Range("A1")
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub