|
Hallo Andy,
im markierten Bereich kommt zwei mal ELSE vor. Das geht gar nicht.
Hier mal ein Ansatz, bei dem mit jeder Checkbox ein Blatt dazukommen kann und eine Meldung ausgegeben wird, wenn die Datei schon existent ist.
Außerdem muss mindestens eine Checkbox true sein, damit gedruckt wird.
Ich weiß nicht genau, ob das jetzt so von Dir gewollt war und testen konnte ich es auch nicht. Es fehlt ja auch mindestens noch die Rout und Dat.
Schau mal, ob Du damit was anfangen kannst.
Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35 |
|
Option Explicit
Sub Test()
Dim sSheets As String, sFileName As String
Dim bCheck As Boolean
Dim Rout, Dat
sFileName = Rout & Dat
sSheets = "Header info,Change description,Task list"
If Tabelle5.CheckBox36.Value Then bCheck = True: sSheets = Sheets & ",TT- Annex"
If Tabelle2.CheckBox1.Value Then bCheck = True: sSheets = Sheets & ",Annex Change description"
If Tabelle2.CheckBox2.Value Then bCheck = True: sSheets = Sheets & ",TT- Annex"
Sheets(Split(sSheets, ",")).Select
If bCheck Then
If Dir$(sFileName) <> "" Then
If MsgBox("Die Datei '" & sFileName & "' ist schon vorhanden!" & vbLf & vbLf _
& "Überschreiben?", vbYesNo Or vbQuestion, "PDF erzeugen") = vbNo Then Exit Sub
End If
ActiveWorkbook.ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sFileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Header info").Select
On Error GoTo 0
End If
End Sub
|
_________
viele Grüße
Karl-Heinz
|