WCM Forum - Einzelnen Beitrag anzeigen - automatisch Execl-Daten importieren

flinx · 01.09.2004, 21:16

Geht sicher mit Makro.
Im Ursprungsfile sowas ala:

Code:

Workbooks.Open Filename:="F:\neu.xls"
    Sheets("xxx").Select
    Sheets("xxx").Copy After:=Workbooks("ursprung.xls").Sheets(1)
    Windows("neu.xls").Activate
    ActiveWindow.Close

Muss natürlich noch an deine Gegebenheiten angepasst werden, Fehlerberücksichtigung etc.pp..

Das ganze dann in 'Privat Sub Workbook_Open' aufrufen, dann sollte in etwa das erreicht sein, was du willst.

01.09.2004, 21:16	#4
flinx Inventar Registriert seit: 08.04.2001 Beiträge: 3.101	Geht sicher mit Makro. Im Ursprungsfile sowas ala: Code: Workbooks.Open Filename:="F:\neu.xls" Sheets("xxx").Select Sheets("xxx").Copy After:=Workbooks("ursprung.xls").Sheets(1) Windows("neu.xls").Activate ActiveWindow.Close Muss natürlich noch an deine Gegebenheiten angepasst werden, Fehlerberücksichtigung etc.pp.. Das ganze dann in 'Privat Sub Workbook_Open' aufrufen, dann sollte in etwa das erreicht sein, was du willst.