VBA - Speichern/Druck als PDF - Fehler

Private Sub CommandButton4_Click() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogSaveAs) With fd .InitialFileName = "IKS_Stichproben_SK_Jahr_" & Tabelle1.Range("B5").Value .FilterIndex = 26 'PDF If .Show = True Then ActiveSheet.ExportAsFixedFormat OutputFileName:=.SelectedItems(1), ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, IncludeDocProps:=True, UseISO19005_1:=False End If End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Peter,
vielen Dank, das hat geholfen. Ich habe noch zwei Probleme.
1. Mein Makro zum leeren der Felder funktioniert bei den Checkboxes nun nicht mehr. Diese werden nicht zurückgesetzt.


Private Sub CommandButton2_Click()
Dim Antwort As Integer
Antwort = MsgBox("Möchten Sie alle Felder leeren?", vbQuestion + vbYesNo)
If Antwort = vbYes Then
ActiveSheet.UsedRange.Select
For Each Zelle In Selection
If Zelle.Locked = False Then
If Zelle.MergeCells Then
If Zelle.Address = Zelle.MergeArea(1).Address Then
Zelle.MergeArea.ClearContents
End If
Else
Zelle.ClearContents
End If
Dim c As Object
For Each c In ActiveSheet.OLEObjects
If InStr(1, c.Name, "CheckBox") > 0 Then
c.Object.Value = False
End If
Next
End If
Next Zelle
MsgBox "Ihre Daten wurden gelöscht!"
Else
MsgBox "Ihre Daten wurden nicht gelöscht"
End If
ActiveSheet.Range("b5").Select
End Sub

2. Das PDF-Speichern funktioniert nun. Wenn der Dateiname bereits vorhanden ist, kommt die Abfrage, ob überschrieben werden soll. Bei Bestätigung bricht er trotzdem ab. ich vermute hier fehlt etwas für den Fall des Überschreibens im Code?


Private Sub CommandButton1_Click()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogSaveAs)
With fd
.InitialFileName = "IKS_Stichproben_SK_Jahr_" & Tabelle3.Range("B5").Value
.FilterIndex = 26 'PDF
If .Show = True Then
ActiveSheet.ExportAsFixedFormat Filename:=.SelectedItems(1), Type:=xlTypePDF, OpenAfterPublish:=True, IncludeDocProperties:=True
End If
End With
End Sub

Besten Dank
Toni

Private Sub CommandButton2_Click() Dim Antwort As Integer Antwort = MsgBox("Möchten Sie alle Felder leeren?", vbQuestion + vbYesNo) If Antwort = vbYes Then For Each Zelle In ActiveSheet.UsedRange If Zelle.Locked = False Then If Zelle.MergeCells Then If Zelle.Address = Zelle.MergeArea(1).Address Then Zelle.MergeArea.ClearContents End If Else Zelle.ClearContents End If End If Next Zelle Dim ole As OLEObject Dim shp As Shape Dim i As Integer For Each shp In ActiveSheet.Shapes If InStr(1, shp.Name, "Group") > 0 Then For i = 1 To shp.GroupItems.Count Set ole = shp.GroupItems(i).OLEFormat.Object If InStr(1, ole.Name, "CheckBox") > 0 Then ole.Object.Value = False End If Next End If Next shp For Each ole In ActiveSheet.OLEObjects If InStr(1, ole.Name, "CheckBox") > 0 Then ole.Object.Value = False End If Next ole MsgBox "Ihre Daten wurden gelöscht!" Else MsgBox "Ihre Daten wurden nicht gelöscht" End If ActiveSheet.Range("b5").Select End Sub

Beliebteste Forumthreads (12 Monate)

VBA - Speichern/Druck als PDF - Fehler

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA - Speichern/Druck als PDF - Fehler

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread