AW: Tabelle kopieren ohne Userforms und Module?
27.10.2003 12:01:24
Russi
Hallo Micha!
Kopiere die Zellinhalte in eine neue Datei:
Public
Sub DateiSpeichern()
Application.ScreenUpdating = False
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveWorkbook.SaveAs FileName:= "blabla.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close savechanges:=False
Range("H5").Select
Application.ScreenUpdating = True
End Sub