title image


Smiley Re: Update Makro erstellen
Hier als Nachtrag meine bisherigen Bemühungen.



Private Sub Workbook_Activate()

If ActiveWorkbook.Name = "Test.xls" Then Exit Sub

Workbooks("Test.xls").Activate

Dim bereich1 As Range

Set bereich1 = Workbooks("EFKB.xls").Range("test1!A1:A6")

bereich1.Copy

activeWorkbooks.Range("test1!A1:A6").Paste

Workbooks("Test.xls").Close

Kill ("/Test.xls")

ActiveWorkbook.SaveAs ("/test.xls")

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: