Ich habe eine Datei mit einem Button, die mir ein Pdf Formular erstellt in einem Ordner meiner Wahl. Nun möchte ich, das wenn der Benutzer darauf klickt das ein Popup-Fenster aufgeht mit einem Hinweis. Z.B. "Vielen Dank für deine PDF Speicherung!" Ist das möglich?
Lg an alle Helfer :17:
Hier der VBA Code:
Sub aktivesBlattToPdf()
ChDir "c:\pdf_2018\6\" 'anpassen 'oder thisworkbook.path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("F5").Value & Format(Now, "DD.MM.YYYY.hh.mm.ss") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
Hi,
anbei mit 2 Varianten die sich selber schließen.
Wenn eine Msgbox reicht dann
msgbox "
Vielen Dank für deine PDF Speicherung!"
ansonsten
[
attachment=18170]
Code(S)
Code:
Option Explicit
Sub test() 'für wsscript
Dim objSh As Object
Set objSh = CreateObject("WScript.Shell")
objSh.Popup "Vielen Dank für deine PDF Speicherung!", 3, "", 64
Set objSh = Nothing
End Sub
Code:
'für Userform
Option Explicit
Private Sub UserForm_Activate()
Application.Wait (Time + TimeSerial(0, 0, 3))
Unload Me
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CMode As Integer)
If CMode <> vbFormCode Then Cancel = 1
End Sub
Hallo Chris, genau das suche ich, aber bin auch etwas hilflos...
kannst du mir sagen an welcher stelle ich das in meinem Code einsetzten muss. Eventuell step by step...
lg
Hallo,
Zitat:kannst du mir sagen an welcher stelle ich das in meinem Code einsetzten muss. Eventuell step by step...
... wie wäre es
vor End Sub?
Hallo Käpt`n...
danke für deine schnelle Hilfe! :19:
leider kommt eine Fehlermeldung wenn ich es dahin kopiere. Siehe mein Bildschirmfoto!
LG
Hi,
Anbei in dein Makro eingebunden.
Code:
Sub aktivesBlattToPdf()
Dim objSh As Object
Set objSh = CreateObject("WScript.Shell")
ChDir "c:\pdf_2018\6\" 'anpassen 'oder thisworkbook.path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("F5").Value & Format(Now, "DD.MM.YYYY.hh.mm.ss") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
objSh.Popup "Vielen Dank für deine PDF Speicherung!", 3, "", 64
Set objSh = Nothing
End Sub
dann wird wohl keine Anleitung benötigt :)
Chris ich danke dir....juchuuuuu, das war es :18:
Lg Reiner
Hallo,
ich weiß, Deine Lösung hast Du schon.
Ein Tipp für die Zukunft trotzdem.
Die angemeckerte Codezeile gehört als erste Zeile in jedes Modul.
Damit erspart man sich eine Menge Fehlersuche und Ärger.
Das Ganze läßt sich auch im VBA-Editor unter Extras --> Optionen automatiseren.
Viel Spaß weiterhin mit Excel und VBA. Warnung: Das kann süchtig machen. ... * grins *