Makro in unbestimmter Tabelle
26.02.2004 10:44:19
silvi
Also, da gibt es eine Datei mit Formeln (nutze ich als Vorlage). Die Formeln lösche ich nach der Bearbeitung wieder und speichere dann unter einem anderen Namen. Ab und zu müssen die Daten aktualisiert werden, und dazu möchte ich die Formeln irgendwie wieder in die schon abgespeicherte Datei bekommen (damit ich nicht alle Daten nochmal eintippen muß). Hab schon was probiert und der erste Teil läuft auch schon, aber das Problem ist ja, daß die Datei nie den gleichen Namen hat und 4 Tabellenblätter enthält, in die ich die Formeln wieder reinbringen muß. Datei "Berechnung Entwicklung.xls" bleibt immer gleich.
Sub kopieren_Rez()
Worksheets("Tabelle1").Activate
Range("A6:h26").Select
Selection.Copy
Workbooks("Berechnung Entwicklung.xls").Activate
Worksheets("Tabelle1").Activate
Range("A6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("E27").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("E8:E27"), Type:=xlFillDefault
Range("E8:E27").Select
Worksheets("1").Activate
Range("A6:h26").Select
Selection.Copy
Workbooks("Berechnung Entwicklung.xls").Activate
Worksheets("1").Activate
Range("A6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("E27").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("E8:E27"), Type:=xlFillDefault
Range("E8:E27").Select
....
Hat jemand ne Idee?
Silvi