AW: Arbeitsblatt speichern
31.07.2008 15:40:57
Meier
Hi Backowe
Vielen Dank für die prompte Antwort, aber die Lösung hat nichts gebracht.
Anbei ein Makro, das ich über einen Button auf der zuspeicherten Seite starte.
Die Speicherung funktioniert wie gewünscht. Nur einen Schönheitsfehler hat die Sache:
1. Das gespeicherte Arbeitsblatt (hier "Lieferschein") bleibt nach der Speicherung voll markiert.
2. Dér Button bleibt auf der gespeicherten Datei sichtbar.
3. Wenn ich die gespeicherte Datei (die Datei heißt dann "Kundenname&Lieferscheinnummer",
ist auf dem Originalblatt in Zelle A1 hinterlegt, dann weiter bearbeiten möchte muß ich die Markierung
entfernen.
Störend ist dann nur noch der sichtbare Button.
Hier das Makro
Sub TabellenblattSpeichern()
Dim WNeueDatei As String, Pfad As String, WName1 As String, Wname2 As String
Pfad = "C:\Getränkelieferung\Lieferschein\"
WNeueDatei = Range("A1")
WName1 = ActiveWorkbook.Name
Workbooks.Add
Wname2 = ActiveWorkbook.Name
Windows(WName1).Activate
Cells.Select
Selection.Copy
Windows(Wname2).Activate
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Getränkelieferung\Lieferschein\" & WNeueDatei & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
End Sub
Vielleicht geht Dir beim Lesen des Makros ein Licht auf, das für mich eine Hilfe ist.
Wie gesagt im Prinzip funktioniert es, aber eben mit den Schönheitsfehlern.
Vielen Dank vorab.
Mfg
Willi