Blätter kopieren in Datei mit Wunschnamen
12.10.2003 16:24:29
Mathieu
Es gibt so Tage da denke ich -> ich bin irgendwie falsch aufgestanden.
Kann mir jemand bitte helfen. Mein Problem:
Ich kopiere aus einer Datei(Name: RDB) ein Blatt in eine neu hinzugefügte Datei und speichere diese unter einen Namen nach Wunsch (über InputBox). Dann will ich, nach Ablauf von Prozedur xy (unrelevant für mein Problem) wieder ein Blatt aus der Datei RDB in die Datei mit dem Wunschnamen kopieren.
Leider klappt mein Code nicht.
Danke für eure Mühe.
Gruß Mathieu
Hier mein Ansatz:
Sub urs2()
Workbooks.Add Template:=xlWorksheet
mno = ActiveWorkbook.Name
Windows("Rdb.xls").Activate
Sheets("DBlatt").Copy Before:=Workbooks(mno).Sheets(1)
Dateiwunschname = InputBox("Geben Sie den für diese Zusammenstellung gewünschten Dateinamen ein")
ActiveWorkbook.SaveAs _
Filename:=Dateiwunschname
'der nachfolgende würde gehen,ein zurückgreifen auf Dateiwunschname geht dann aber nicht mehr
' Sheets("DBlatt").Copy Before:=Workbooks("frah.xls").Sheets(1)
'der nachfolgende wäre mein Wunsch,klappt leider nicht, warum ?
Sheets("DBlatt2").Copy Before:=Workbooks(Dateiwunschname).Sheets(1)
End Sub