Button mit Popup Fenster

[Remibet]

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

[chris-ka]

Hi,

anbei mit 2 Varianten die sich selber schließen.
Wenn eine Msgbox reicht dann

msgbox "Vielen Dank für deine PDF Speicherung!"

ansonsten

  popups.xlsm (Größe: 24,11 KB / Downloads: 6)

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

[Remibet]

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

[Käpt'n Blaubär]

Hallo,

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?

[Remibet]

Hallo Käpt`n...

danke für deine schnelle Hilfe! :19: 

leider kommt eine Fehlermeldung wenn ich es dahin kopiere. Siehe mein Bildschirmfoto!

LG

[chris-ka]

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 :)

[Remibet]

Chris ich danke dir....juchuuuuu, das war es :18: 

Lg Reiner

[Käpt'n Blaubär]

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 *