per Checkbox-Makro PDF/Word-Datei öffnen
15.05.2020 11:39:10
PieWie
ich habe mir ein Makro zusammengebastelt, welches mit einer Userform die Möglichkeit schafft eine Auswahll an Tabellenblättern als PDF zu speichern. Das klappt soweit alles wunderbar.
Allerdings würde ich gerne noch ein Stück weiter gehen und noch eine externe Datei einbinden (PDF/Word). Leider weiß ich aber nicht, wie ich diese externe Datei in meine "Schleife" einbinden kann. Vielleicht kann mir ja jemand Hilfestellung leisten.
Die Datei soll über Ceckbox12 ausgewählt, geöffnet und zusammen mit den anderen ausgewählten Tabellenblättern als PDF gespeichert werden.
Vorab vielen lieben Dank
Mein Code wäre wie folgt:
Private Sub CommandButton1_Click()
Dim varSheets() As Variant, lngIndex As Long
If CheckBox1 Then
ReDim Preserve varSheets(lngIndex): varSheets(lngIndex) = "Angebot": lngIndex = lngIndex + 1
If CheckBox2 Then
ReDim Preserve varSheets(lngIndex): varSheets(lngIndex) = "DetailMA1": lngIndex = lngIndex + _
_
_
1
End If
If CheckBox3 Then
ReDim Preserve varSheets(lngIndex): varSheets(lngIndex) = "DetailMA2": lngIndex = lngIndex + _
_
_
1
End If
If CheckBox4 Then
ReDim Preserve varSheets(lngIndex): varSheets(lngIndex) = "DetailMA3": lngIndex = lngIndex + _
_
_
1
End If
If CheckBox5 Then
ReDim Preserve varSheets(lngIndex): varSheets(lngIndex) = "DetailMA4": lngIndex = lngIndex + _
_
_
1
End If
If CheckBox6 Then
ReDim Preserve varSheets(lngIndex): varSheets(lngIndex) = "DetailMA5": lngIndex = lngIndex + _
_
_
1
End If
If CheckBox7 Then
ReDim Preserve varSheets(lngIndex): varSheets(lngIndex) = "DetailMA6": lngIndex = lngIndex + _
_
_
1
End If
If CheckBox8 Then
ReDim Preserve varSheets(lngIndex): varSheets(lngIndex) = "DetailMA7": lngIndex = lngIndex + _
_
_
1
End If
If CheckBox9 Then
ReDim Preserve varSheets(lngIndex): varSheets(lngIndex) = "DetailMA8": lngIndex = lngIndex + _
_
_
1
End If
If CheckBox10 Then
ReDim Preserve varSheets(lngIndex): varSheets(lngIndex) = "DetailMA9": lngIndex = lngIndex + _
_
_
1
End If
If CheckBox11 Then
ReDim Preserve varSheets(lngIndex): varSheets(lngIndex) = "DetailMA10": lngIndex = lngIndex + _
_
_
1
End If
Sheets(varSheets).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Environ("USERPROFILE") & "\Desktop\" & "MB " & Sheets("Angebot").Range("G6") & ".PDF", _
_
_
_
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If
Unload Me
End Sub