Code einbauen -- " Nepumuk"
25.11.2003 13:46:46
tom
Nepumuk hat mir gestern sehr gut geholfen , deshalb spreche ich ihn direkt an.
Leider konnte ich Dein Macro nicht einbinden ich bin zu blöd! ;-(
Es soll von der 1. zu öffnenden Dateien jeweils die Spalte V10 V105 in die Datei Prog_kw_.xls in C18-C113
und die Spalte U10-U105 in die Datei Prog_kw_.xls in M18-M113
Es soll von der 2. zu öffnenden Dateien jeweils die Spalte V10 V105 in die Datei Prog_kw_.xls in D18-D113
und die Spalte U10-U105 in die Datei Prog_kw_.xls in N18-N113
Es soll von der 3. zu öffnenden Dateien jeweils die Spalte V10 V105 in die Datei Prog_kw_.xls in E18-E113
und die Spalte U10-U105 in die Datei Prog_kw_.xls in O18-O113
usw.
Ich hatte es so gemacht.
h = "FP24.11.2003.xls"
i = "FP25.11.2003.xls"
Windows(h).Activate
Range("V10:V105").Select
Selection.Copy
Windows("Prog_KW_.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M18").Select
Windows(h).Activate
Range("U10:U105").Select
Range("U105").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Prog_KW_.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=2
Range("N18").Select
Windows(h).Activate
Application.CutCopyMode = False
Range("V11").Select
ActiveWorkbook.Save
ActiveWindow.Close
Windows(i).Activate
Range("U10:U105").Select
Selection.Copy
Windows("Prog_KW_.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D18").Select
Windows(i).Activate
Range("V10:V105").Select
Range("V105").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Prog_KW_.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E18").Select
Windows(i).Activate
Application.CutCopyMode = False
Range("U12").Select
ActiveWorkbook.Save
ActiveWindow.Close
Kann man das irgendwie einbauen????
Vielen Dank !!
Tom