Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Excel Makro PDF erstellen

Frage Microsoft Microsoft Office

Mitglied: Chrigi83

Chrigi83 (Level 1) - Jetzt verbinden

09.05.2014, aktualisiert 16:32 Uhr, 5191 Aufrufe, 1 Kommentar

Hallo zusammen

Hab ein kleines Projekt in dem ich gerne ein PDF aus einem Excel drucken möchte mit dem aktuellen Datum als Dateiname.
Bin bis jetzt soweit gekommen das ich es per Eingabe einfügen kann, aber leider noch nicht automatisch.
Gibt es hier Makro spezies die mir helfen können?

Danke

01.
Sub erstelle_PDF() 
02.
03.
' erstelle_PDF Makro 2013 von PauleVBA@ <a href="http://www.gutefrage.net">www.gutefrage.net</a> 
04.
' gibt eine PDF der aktuellen Kalkulation aus 
05.
06.
' Tastenkombination: Strg+f 
07.
08.
Dim strPfad As String 
09.
Dim strDateiName As String 
10.
Dim strSpeicher As String 
11.
 
12.
    strPfad = "O:\Eingeschriebene Briefe\2014\" 
13.
     
14.
    Do While strDateiName = "" 
15.
        MsgBox "Bitte einen Dateiname eingeben!", vbExclamation, "Info" 
16.
        strDateiName = InputBox("Dateiname eingeben:", "Speichern-Dialog") 
17.
    Loop 
18.
     
19.
    strSpeicher = strPfad & strDateiName 
20.
 
21.
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
22.
        strSpeicher _ 
23.
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ 
24.
        :=False, From:=1, To:=2, OpenAfterPublish:=False 
25.
 
26.
End Sub
Mitglied: bastla
09.05.2014 um 16:39 Uhr
Hallo Chrigi83!

Wenn Du nur einen Brief pro Tag hast (und daher das Datum als Dateiname genügt) könntest Du dieses Datum etwa so erhalten:
strDatum = Year(Date) & "-" & Right("0" & Month(Date), 2) & "-" & Right("0" & Day(Date), 2)
Solltest Du doch auch die Uhrzeit integrieren wollen, dürfte eine Ergänzung nach dem gleichen Muster (für "Time") ja nicht ganz so schwer sein (und dass ":" in einem Dateinamen nicht erlaubt ist, weißt Du ja sicher) ...

Grüße
bastla
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Microsoft Office
gelöst Excel-Makro (7)

Frage von yuki13 zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel Makro : Erst prüfen bei erfolgreicher IF einen Wert überschreiben (4)

Frage von Matze1508 zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel Makro - Button "Springe zu Zeile mit heutigem Datum" (5)

Frage von hannsgmaulwurf zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel Pdf Datei als Icon Symbol in Word einfügen per Drag and drop? (4)

Frage von Geforce zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (21)

Frage von Xaero1982 zum Thema Microsoft ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Windows Update
Treiberinstallation durch Windows Update läßt sich nicht verhindern (17)

Frage von liquidbase zum Thema Windows Update ...