Van meerdere zichtbare tabbladen één pdf maken

[ralphnag]

Ik heb een bestand gemaakt in excel met meerderen tabbladen waarvan de meesten verborgen zijn en alleen zichtbaar worden gemaakt als er data in komt te staan.
Nu wil ik van alle Tabbladen die zichtbaar zijn 1 .PDF bestand maken.
Ik heb tot nu

toe Sub Macro1()
'
' Macro1 Macro
'
'-- Opslaan order als PDF
    Bestandsnaam = Blad1.Range("L3")
    Blad2.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Blad1.Range("L2") & Bestandsnaam & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

'
End Sub

Deze code maakt alleen van blad 2 een .pdf
Dit is de enige pagina die altijd zichtbaar is.
Hoe kan ik deze code aanpassen zodat hij alle zichtbare bladen in de PDF zet?

alvast bedankt,
Ralph

 

[ralphnag]

is het niet mogelijk om een macro alle zichtbare tabbladen te laten selecteren en de verborgen niet?

 

[gast0182]

IF condition THEN
action1
action2
ElseIf condition Then
action3
Else
action4
End IF

Moet het waarschijnlijk wel mee lukken. Zou je de file kunnen uploaden zodat de mensen met de engelse versie (zoals ik) gewoon de file kunnen openen en ermee verder kunnen gaan? Is stukken handiger :thumb:

 

[ExcelAmateur]

ralphnag,

Kijk of je hier wat mee kunt.

 

[ralphnag]

bedankt, dit is het uit eindelijk geworden.

Sub Opslaan_PDF()
'
' Macro1 Macro
'
'-- selecteer alle bladen
    Dim sh As Worksheet
    For Each sh In Sheets
    If sh.Visible = xlSheetVisible Then
    sh.Select (False)
    End If
Next sh
'-- Opslaan order als PDF
    Bestandsnaam = Blad1.Range("L3")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Blad1.Range("L2") & Bestandsnaam & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

'
End Sub