Brettt form kopf
11.11.2004 12:33:07
Martin
Ich habe irgenwo ein brett vorm kopf und hoffe einer von euch hat den passenden Hobel dafür.
Es geht um diese beiden Quellcodes
Sub Speichern()
Sheets("Parameter").Select 'Auswahl Parameter
ActiveWindow.SelectedSheets.Delete ' Löschen der Seite
ActiveWorkbook.SaveAs Filename:="C:\Temp\Partlist_Plates_" & Range("F44") & Range("F45") & ".xls" 'Pfad und Name zum abspeichern
MsgBox ("Die Datei Wurde im Verzeichniss C: Temp unter dem Namen des Schiffes" & [F44] & " und der Blocknummer gespeichert " & [F45])
End Sub
Sub speieren_ohne_Makro()
Dim Original As String, Kopie As String
Dim i As Integer
Original = ActiveWorkbook.Name
Kopie = ActiveWorkbook.Name & "_Kopie.xls"
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\Temp\Partlist_Plates_" & Range("F44") & Range("F45") & "_Kopie.xls"
Workbooks(Original).Activate
For i = 1 To Sheets.Count
Sheets(i).Copy _
After:=Workbooks(Kopie).Sheets(i)
Next i
End Sub
Im erstewn makro wird die Mappe unter den namen Abgespeichert der sich aus 2 Zellen ergibt
Und im Zweiten makro soll eine Kopie der Ersten datei entstehen aber ohne die Makros aber irgent wie funst das nicht richtig.
Wer kann mir weiter helfen?
Gruß Martin