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