mit Makro kopieren
04.03.2003 09:40:47
Hilmar
Das Makro funktioniert so ganz gut.
Ich möchte aber anstatt der Musterdatei.xls
eine Datei manuell auswählen.
Bitte um Hilfe
Danke
Gruß
Hilmar
Sub Makro1()
'
' Makro1 Makro
' Makro am 04.03.2003 von aufgezeichnet
'
'
ChDir "C:\TEMP"
Workbooks.Open Filename:="C:\TEMP\Anschreiben.xls"
Sheets("Tabelle1").Select
Sheets("Tabelle1").Copy after:=Workbooks("MusterDatei.xls").Sheets(1)
Windows("Anschreiben.xls").Activate
ActiveWorkbook.Close
End Sub