Makro Druckauftrag jedes Tabellenblatt in PDF-Format

[Lars1904]

Hallo,

kurze Frage:

Ich habe mit folgendem Makro bereits die Möglichkeit, jedes Tabellenblatt separat als PDF-Dokument zu speichern.

Ich würde allerdings für die Speicherung eines Tabellenblatts gerne noch die Bedingung C500>1 hinzufügen. Sodass für jedes Tabellenblatt geprüft wird, ob die Bedingung erfüllt wird, und nur falls ja dann auch eine PDF-Datei für dieses Tabellenblatt erstellt wird.

Aktuelles Makro:

Option Explicit
 Public Sub Main()
     Dim wksSheet As Worksheet
     On Error GoTo Fin
     With ThisWorkbook
         For Each wksSheet In .Worksheets
             wksSheet.ExportAsFixedFormat 0, .Path & _
                 "\" & wksSheet.Name
         Next wksSheet
     End With
Fin:
     If Err.Number <> 0 Then MsgBox "Error: " & _
         Err.Number & " " & Err.Description
 End Sub
 Function fncEXT(ByVal strName As String) As String
     fncEXT = Mid(strName, 1, InStr(strName, ".") - 1)
 End Function

Vielen Dank vorab!

[Kuwer]

Hallo Lars,

 Public Sub Main()
    Dim wksSheet As Worksheet
    On Error GoTo Fin
    With ThisWorkbook
        For Each wksSheet In .Worksheets
           If wksSheet.Range("C500").Value > 1 Then
               wksSheet.ExportAsFixedFormat 0, .Path & _
                   "\" & wksSheet.Name
           End If
        Next wksSheet
    End With
Fin:
    If Err.Number <> 0 Then MsgBox "Error: " & _
        Err.Number & " " & Err.Description
End Sub

Function fncEXT(ByVal strName As String) As String
    fncEXT = Mid(strName, 1, InStr(strName, ".") - 1)
End Function

Gruß Uwe