Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1336to1340
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

CommandButton speichern drucken

CommandButton speichern drucken
17.11.2013 10:52:42
Florian
Hallo,
ich würde gerne ein CommandButton erstellen der Folgendes machen soll.
die komplette Arbeitsmappe ausdrucken und anschließen Speichern unter als Dokumentname soll der inhalt der Zelle J11 eingefügt werden.
und wenn möglich wieder die Datei leer öffnen .
Vielen Dank
MFG Florian

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CommandButton speichern drucken
17.11.2013 18:47:18
fcs
Hallo Florian,
das folgende Makro musst du evtl. noch ein wenig anpassen.
Gruß
Franz
'Erstellt unter Excel 2010
Sub printButton()
Dim strFilenameOld As String, strFilenameSave, lngFileFormat As Long
Dim wkb As Workbook
Set wkb = ActiveWorkbook
strFilenameOld = wkb.FullName 'Dateiname merken für späteres erneutes öffnen
'Dateiname für Speichern unter ermitteln - ggf. anpassen (Verzeichnis\Name erforderlich)
ActiveSheet.Range("J11").Calculate 'Zelle mit Dateiname neu berechnen ggf. nicht erforderlich
strFilenameSave = wkb.Path & Application.PathSeparator & ActiveSheet.Range("J11")
'gesamte Arbeitsmappe drucken - zum Testen Preview ggf. auf True setzen (Papier sparen)
wkb.PrintOut preview:=False
If Val(Left(Application.Version, 2))  strFilenameSave Then
Application.Workbooks.Open Filename:=strFilenameOld
wkb.Close savechanges:=False
Else
MsgBox "Datei kann nicht unter dem gleichen Namen geöffnet werden!"
End If
End Sub

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige