Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

PDF erstellen, Eingaben löschen
#21
Hallöchen,

setze mal in die Zeile ActiveSheet.ExportAsFixedFormat … einen Haltepunkt und schaue Dir den Inhalt der Variable Pfad beim Abbrechen an...
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#22
Sieht dann so aus wie im Anhang. Ich selber kann damit leider nix anfangen.

Hab auf "Abbrechen" gedrückt, dann kam das


Angehängte Dateien Thumbnail(s)
   
Antworten Top
#23
Code:
Sub PDF_erstellen()

Dim Eingabewert As Byte

Eingabewert = MsgBox("Wurde das Teil vollständig gegprüft? /" & vbNewLine & "Has the part been  _
completely checked?", vbQuestion + vbYesNo, "Prüfung beenden? / End Checking?")

If Eingabewert = vbYes Then

MsgBox "PDF wird erstellt, Eingaben werden unwiderruflich gelöscht! /" & vbNewLine & "PDF will  _
be created and any inputs will be deleted!"

'
' PDF erstellen und Tabelle schließen - Makro
'

'
     Dim Pfad As String, Dateiname As String

Dateiname = Range("G6") & ".-QS_geprueft" & ".pdf"

Pfad = Application.GetSaveAsFilename(InitialFileName:=Dateiname, _
                                         FileFilter:="PDF-Datei (*.pdf),*.pdf")
                                         
If Pfad = "False" Then
     Application.DisplayAlerts = True
     Exit Sub
End If

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
         Pfad, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
         IgnorePrintAreas:=False, OpenAfterPublish:=True
       
ThisWorkbook.Close SaveChanges:=False

ElseIf Eingabewert = vbNo Then

MsgBox "Kein PDF erstellt. /" & vbNewLine & "No PDF created."

End If
   
End Sub
So habe ich den Code jetzt, abbrechen funktioniert. Aber will ich jetzt speichern, erscheint der Fehler "Laufzeitfehler 13" Typen unverträglich und markiert mir die Zeile mit If Pfad = "False" Then
Antworten Top
#24
Hallöchen,

mach mal statt
Dim Pfad As String
dann
Dim Pfad
und bei der Prüfung statt
If Pfad = "False" Then
dann
If VarType(Pfad) = 11 Then
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • DerBeny
Antworten Top
#25
Hallo,

man kann Pfad auch als String lassen und die Prüfung so vornehmen:
If CVar(Pfad) = False Then
Gruß Uwe
[-] Folgende(r) 2 Nutzer sagen Danke an Kuwer für diesen Beitrag:
  • DerBeny, schauan
Antworten Top
#26
Ok, doch noch eine Frage:

Kann ich irgendwo im Code festlegen, dass es immer in quer in A3 gespeichert wird?
Antworten Top
#27
Hallöchen,

Du müsstest vorher die Ausrichtung einstellen, z.B. im Prinzip

Sheets("Tabelle1").PageSetup.Orientation = xlLandscape
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste