Re: Select
22.07.2002 13:42:23
Tobi
Also das wäre der Code. Private Sub CommandButton1_Click()
Sheets("Export to EP_ETT").Select
Range("B1:Q200").Select
Selection.Copy
Columns("A:A").Select
ActiveWindow.SmallScroll ToRight:=11
Columns("A:R").Select
ActiveWindow.ScrollColumn = 1
Range("A1").Select
Application.CutCopyMode = False
ActiveSheet.Unprotect
Range("B1:Q200").Select
Selection.Copy
Range("A1").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("B2").Select
ActiveWindow.LargeScroll ToRight:=1
ActiveWindow.ScrollColumn = 12
Columns("Q:R").Select
Selection.Delete Shift:=xlToLeft
Sheets("Blatt3").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Blatt2").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Blatt1").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Blatt").Select
ActiveWindow.SelectedSheets.Delete
ChDir "E:\"
ActiveWorkbook.SaveAs Filename:="E:\Export EP_ETT.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub