Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA ausgewählte Tabelle als Pdf via Checkbox

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

Anzeige

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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige