AW: Workbooks(1).Activate läuft nicht
24.09.2003 15:50:18
Erich
Hallo Chris,
der Code ist folgender:
Sub Budgetholen()
Application.ScreenUpdating = False
ActiveSheet.Visible = True
Sheets("Dateiname").Activate
spalte = Range("E1").Value
ChDir "Z:\Budget2003\Kostenplanung 2003"
Workbooks.Open Filename:= _
"Z:\Budget2003\Kostenplanung 2003\Kosten Gesamt 2003.XLS", UpdateLinks:=0
Sheets("KST 1").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets(Array("KST 1", "KST 2", "KST 3", "KST 4", "KST 5", "KST 6", "KST 7", "KST 8", _
"KST 9", "KST 10", "KST 11", "KST 12", "KST 13", "KST 14", "KST 15", "KST 16", "KST 17" _
, "KST 18", "KST 19", "KST 20", "KST 21", "KST 22", "KST 23", "KST 24", "KST 25")). _
Select
Sheets("KST 1").Activate
Sheets(Array("KST 26", "KST 27", "KST 28", "KST 29", "KST 30")).Select Replace:= _
False
'ActiveWindow.SmallScroll ToRight:=5
Range("H19").Select
ActiveCell.Offset(rowOffset:=0, columnOffset:=spalte).Activate
ActiveCell.Name = "AnfangSpalte"
ActiveCell.Offset(rowOffset:=15, columnOffset:=0).Activate
ActiveCell.Name = "EndeSpalte"
Range("AnfangSpalte:EndeSpalte").Select
Selection.Copy
'Windows("KST-Liste IS-CH mit Budget 2003-09.xls").Activate
Workbooks(1).Activate
Sheets("KST 1").Select
Sheets(Array("KST 1", "KST 2", "KST 3", "KST 4", "KST 5", "KST 6", "KST 7", "KST 8", _
"KST 9", "KST 10", "KST 11", "KST 12", "KST 13", "KST 14", "KST 15", "KST 16", "KST 17" _
, "KST 18", "KST 19", "KST 20", "KST 21", "KST 22", "KST 23", "KST 24", "KST 25")). _
Select
Sheets("KST 1").Activate
Sheets(Array("KST 26", "KST 27", "KST 28", "KST 29", "KST 30")).Select Replace:= _
False
Range("D11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Windows("Kosten Gesamt 2003.XLS").Activate
Range("H35").Activate
Range("H35").Select
ActiveCell.Offset(rowOffset:=0, columnOffset:=spalte).Activate
ActiveCell.Name = "DreiFünf"
Application.CutCopyMode = False
Selection.Copy
'Workbooks("KST-Liste IS-CH mit Budget 2003-09.xls").Activate
Workbooks(1).Activate
Range("D28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Kosten Gesamt 2003.XLS").Activate
Application.CutCopyMode = False
Range("H37").Activate
Range("H37").Select
ActiveCell.Offset(rowOffset:=0, columnOffset:=spalte).Activate
ActiveCell.Name = "DreiFünf"
Application.CutCopyMode = False
Selection.Copy
'Workbooks("KST-Liste IS-CH mit Budget 2003-09.xls").Activate
Workbooks(1).Activate
Range("D27").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Startseite").Select
Windows("Kosten Gesamt 2003.XLS").Activate
ActiveWindow.Close
Workbooks.Open Filename:= _
"Z:\Budget2003\Kostenplanung 2003\Kosten Gesamt 2003 kummuliert.XLS", _
UpdateLinks:=0
Sheets("KST 1").Select
Sheets(Array("KST 1", "KST 2", "KST 3", "KST 4", "KST 5", "KST 6", "KST 7", "KST 8", _
"KST 9", "KST 10", "KST 11", "KST 12", "KST 13", "KST 14", "KST 15", "KST 16", "KST 17" _
, "KST 18", "KST 19", "KST 20", "KST 21", "KST 22", "KST 23", "KST 24", "KST 25")). _
Select
Sheets("KST 1").Activate
Sheets(Array("KST 26", "KST 27", "KST 28", "KST 29", "KST 30")).Select Replace:= _
False
Range("H19").Select
ActiveCell.Offset(rowOffset:=0, columnOffset:=spalte).Activate
ActiveCell.Name = "AnfangSpalte"
ActiveCell.Offset(rowOffset:=15, columnOffset:=0).Activate
ActiveCell.Name = "EndeSpalte"
Range("AnfangSpalte:EndeSpalte").Select
Selection.Copy
'Workbooks("KST-Liste IS-CH mit Budget 2003-09.xls").Activate
Workbooks(1).Activate
Sheets("KST 1").Select
Sheets(Array("KST 1", "KST 2", "KST 3", "KST 4", "KST 5", "KST 6", "KST 7", "KST 8", _
"KST 9", "KST 10", "KST 11", "KST 12", "KST 13", "KST 14", "KST 15", "KST 16", "KST 17" _
, "KST 18", "KST 19", "KST 20", "KST 21", "KST 22", "KST 23", "KST 24", "KST 25")). _
Select
Sheets("KST 1").Activate
Sheets(Array("KST 26", "KST 27", "KST 28", "KST 29", "KST 30")).Select Replace:= _
False
Range("H11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
'Range("H28").Select
Application.CutCopyMode = False
Windows("Kosten Gesamt 2003 kummuliert.XLS").Activate
Range("H35").Activate
Range("H35").Select
ActiveCell.Offset(rowOffset:=0, columnOffset:=spalte).Activate
ActiveCell.Name = "DreiFünf"
Application.CutCopyMode = False
Selection.Copy
'Workbooks("KST-Liste IS-CH mit Budget 2003-09.xls").Activate
Workbooks(1).Activate
Range("H28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1:J1").Select
Windows("Kosten Gesamt 2003 kummuliert.XLS").Activate
Application.CutCopyMode = False
Range("H37").Activate
Range("H37").Select
ActiveCell.Offset(rowOffset:=0, columnOffset:=spalte).Activate
ActiveCell.Name = "DreiFünf"
Application.CutCopyMode = False
Selection.Copy
'Workbooks("KST-Liste IS-CH mit Budget 2003-09.xls").Activate
Workbooks(1).Activate
Range("H27").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Kosten Gesamt 2003 kummuliert.XLS").Activate
ActiveWindow.Close
Sheets("Dateiname").Activate
ActiveSheet.Visible = False
Call Blaetterausblenden
Sheets("Startseite").Select
Application.ScreenUpdating = True
End Sub
Gruß
Erich