|
Hi alle zusammen,
poste hier das erste Mal und hoffe das ich alles nötige angebe ;-)
Ich habe ein vb Script im Internet gefunden um einzelne Arbeitsblätter speichern zu können.
Das Script funktioniert soweit tadelos. Jedoch würde ich gerne aus vorherigen Ausgaben die Auftragsnummer und das Datum übertragen.
Zuerst stelle ich erstmal die Programmierung rein.
Sub BlattSpeichern()
Application.ScreenUpdating = False
ActiveSheet.Copy
Dim neuName As String
neuName = InputBox("Unter welchem Namen soll die Datei gespeichert werden?")
'Pfad anpassen "D:\???????\
ActiveWorkbook.SaveAs Filename:="C:\Test\" & neuName & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
'Pfad anpassen "D:\???????\
MsgBox " Die Datei wurde unter C:\Test\ " & neuName & " gespeichert !", vbibformation
Application.ScreenUpdating = True
End Sub
Bei der Userform heißen die Textfelder so:
Eingabeformular.auftragsnummer.Value
und
Eingabeformular.gezdatum.Value
Auf dem Excel Arbeitsblatt so:
ActiveSheet.auftragsnummer1.Value
und
ActiveSheet.gezdate.Value
Ich würde gerne bei "NeuName" die Auftragsnummer und das aktuelle Datum angeben (Muss im Display nicht erscheinen, bloß nachdem es gespeichert wurde sollte die Datei zuerst die angegebenen Werte stehen haben)
Für Lösungen bedanke ich mich im Voraus.
MfG
Niklas
|