Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
VBA ausgewählte Tabelle als Pdf via Checkbox
14.11.2014 07:11:36
Sino
Hallo Leute,
hoffe ihr könnt mir helfen. Ich würde gerne per Checkbox Tabellen einblenden und die auch per Buttom als PDF speichern. Die Seite mit den Checkboxen soll natürlich nicht gespeichert werden. Feste Tabellen wie Deckblatt und Bemerkung sollen immer gespeichert werden.
VG Sino
Datei: https://www.herber.de/bbs/user/93763.xlsm

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA ausgewählte Tabelle als Pdf via Checkbox
14.11.2014 12:59:37
fcs
Hallo Sino,
Makro für Schlatfläche:
Private Sub CommandButton1_Click()
'Eingeblendete Tabellen als PDF speichern. Deckblatt und Bemerkung immer speichern.
Dim arrSheets(), intSheet, objSheet As Object, varName
For Each objSheet In ActiveWorkbook.Sheets
Select Case objSheet.Name
Case "Daten"
'diese Blätter nicht drucken/speichern
Case Else
If objSheet.Visible = xlSheetVisible Then
intSheet = intSheet + 1
ReDim Preserve arrSheets(1 To intSheet)
arrSheets(intSheet) = objSheet.Name
End If
End Select
Next
If intSheet > 0 Then
ActiveWorkbook.Sheets(arrSheets()).Select
' SaveAsPDF Makro
varName = Application.GetSaveAsFilename(FileFilter:="PDF (*.PDF),*.pdf", _
Title:="Bitte Name für PDF-Datei eingeben/auswählen")
If varName  False Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=varName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End If
Sheets("Daten").Select
End If
End Sub
Gruß
Franz

Anzeige
AW: VBA ausgewählte Tabelle als Pdf via Checkbox
14.11.2014 13:05:32
Sino
Suuupper, vielen vielen Dank

331 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige