Controleren of tabblad bestaat

[Niels28]

Hallo,

Middels een macro wordt een worksheet opgeslagen als PDF en wordt deze gemaild.\
De worksheetnaam wordt opgegeven dmv een inputbox.

Hoe kan ik controleren of de worksheet wel bestaat en als dit niet zo is de macro stoppen?

[COLOR="red"]'Hier moet dus een controle komen of het tabblad wel bestaat[/COLOR]
      Sheets("WK " & weeknr).Select 'tabblad selecteren bv WK 40
      With CreateObject("Scripting.FileSystemObject")
      If Not .FileExists(stAttachment) Then 'als het bestand nog niet bestaat dit aanmaken
      Sheets("WK " & weeknr).ExportAsFixedFormat Type:=xlTypePDF, Filename:=stAttachment, _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
      Sheets(1).Select 'tabblad opslaan als PDF op locatie en met naam volgens variabel stAttachment
                
                
          Else 'als het bestand wel bestaat dit aangeven en sub afsluiten
          MsgBox "Je hebt week " & weeknr & " al gemaild" & vbCrLf & "Er is geen nieuwe mail verzonden!", vbExclamation
          Sheets(1).Select
          Application.ScreenUpdating = True
          Exit Sub
                    
            End If
             End With

 

[Warme bakkertje]

Plaats deze in een standaardmodule

Public Function WorksheetExists(ByVal WorksheetName As String) As Boolean
    On Error Resume Next
    WorksheetExists = (Sheets(WorksheetName).Name <> "")
    On Error GoTo 0
End Function

Gebruik hem in je macro als

If Not WorksheetExists("Werkbladnaam hier invullen") Then Exit Sub

 

[Niels28]

Werkt perfect :thumb:

Dank je.

Niels