neuer versuch im neuen Jahr
01.01.2005 08:08:32
Dani
nochmal ein Versuch, das geöffnete Ausgangsblatt in eine zu wählende bestehende Mappe zu kopieren und zwar an den Schluss der dort bereits bestehenden Blätter.
Bin Anfänger, brauche Eure Hilfe!
Mit dem Makrorekorder hab ich das folgende zusammengestiefelt:
Sub test()
Workbooks.Open Filename:= _
"D:\Daten\Geschäft\Rechnungen\Meier Hans.xls"
'hier möchte ich gerne wählen können zwischen allen dateien in ..\Rechnungen per input box oder so
Windows("Musterrechnung.xls").Activate
'ist schon offen,hat Makro
Sheets("07.12.2004").Select
'hier sollte das jeweils aktive Blatt angesprochen werden,wie immer es auch heisst! Es ist das Ausgangsblatt mit dem Makro
Sheets("07.12.2004").Copy After:=Workbooks("Meier Hans.xls").Sheets(Sheets.Count)
Windows("Meier Hans.xls").Activate 'das geht wohl auch eleganter!
ActiveWorkbook.Save
ActiveWindow.Close
'hier sollte das Zielverzeichnis gespeichert und geschlossen werden(\Meier Hans oder so)
End Sub
Besten Dank für Eure Hilfe!
Dani