Copy and Paste bei neuer Arbeitsmappe
02.10.2003 16:56:05
Bengsch, Frank
wollte mal eben ein copy and paste von einer Arbeitsmappe zur anderen machen. Ohne VBA funktioniert es, aber mit nachfolgendem Code nicht mehr.
Range("A3").Select
letzteZeile = ActiveSheet.UsedRange.Rows.Count
rangefake = "A3:L" & letzteZeile
Range(rangefake).Select
Selection.Copy
Workbooks.Add
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs FileName:="C:\kweuro.dbf", FileFormat:=xlDBF4, _
CreateBackup:=False
ActiveWindow.Close
Range("A3").Select
Wer kann mir weiterhelfen.
Frank
Anzeige