Sjekk om et ark finnes

Funksjonen nedenfor kan benyttes til å sjekke om et navngitt ark finnes i den aktive arbeidsboken:

Function SheetExists(strSheetName As String) As Boolean
' returnerer TRUE dersom arket finnes i den aktive arbeidsboken
    SheetExists = False
    On Error Resume Next
    SheetExists = Len(Sheets(strSheetName).Name) > 0
    On Error GoTo 0
End Function

Eksempel:

If Not SheetExists("MySheetName") Then
    MsgBox "MySheetName finnes ikke!"
Else
    Sheets("MySheetName").Activate
End If

Funksjonen nedenfor kan benyttes til å sjekke om et navngitt ark finnes i den angitte arbeidsboken:

Function SheetExists(wb As Workbook, strSheetName As String) As Boolean
' returnerer TRUE dersom arket finnes i wb
    SheetExists = False
    On Error Resume Next
    SheetExists = Len(wb.Sheets(strSheetName).Name) > 0
    On Error GoTo 0
End Function

Eksempel:

If Not SheetExists(ThisWorkbook, "MySheetName") Then
    MsgBox "MySheetName finnes ikke i " & ThisWorkbook.Name
Else
    MsgBox "MySheetName finnes in " & ThisWorkbook.Name
End If

If Not SheetExists(Workbooks("WorkbookName.xls"), "MySheetName") Then
    MsgBox "MySheetName finnes ikke!"
Else
    MsgBox "MySheetName finnes!"
End If

Dokumentet er sist oppdatert 1999-12-20 12:37:25 Utskriftsvennlig versjon