Excel Formular VBA Hilfe?

Guten Tag,

kann mir jemand einen VBA Code verraten für mein vorhaben?
Ich möchte gerne die Zulassungsfelder ausfüllen. Wenn ich dann fertig bin drücke ich unten auf einen erstellten Steuerbutton mit den Titel "Fertig" und dann soll ein Makro ausgeführt werden was folgende Schritte durchgeht.

1. PC öffnen und Speicherort für das aktuelle Dokument festlegen
2. Dokument als PDF abspeichern
3. Eingabefelder automatisch wieder löschen nach der Speicherung

Wäre über eine Lösung echt dankbar. Würde auch was bezahlen für einen Code.

Mit freundlichen Grüßen

Answer 1

[hannes1806]

Hallo, entferne in allen Zellen, die gelöscht werden sollen den Schutz und probiere mal das Makro:

Sub PDF_speichern()

  On Error Resume Next

  Dateiname = "U:\" & Range("C13") & ".pdf" 'U:\ ist der Platzhalter für deinen Speicherort, das PDF wird unter dem Kennzeichen gespeichert, das in C13 steht.

  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

  For Z = 2 To 26

    For S = 2 To 42

      If Cells(Z, S).Locked = False Then Cells(Z, S).ClearContents

    Next S

  Next Z

End Sub

Woher ich das weiß: eigene Erfahrung – Faulheit >> Neugier >> Wissen

Comments

[Ovomaltine312]

Hallo, danke für die Antwort! Leider funktioniert der Code nicht. Ich habe einen Button erstellt der deinen Makro ausführen soll, jedoch speichert er die Datei nicht mit Makro ab und der Code funktioniert nicht.