Check WorksheetExists

[johhnnyboy]

Hoi!

Onderstaande functie heb ik opgenomen in mijn excel project:

Public Function WorksheetExists(ByVal WorksheetName As String) As Boolean
    
    Dim ws                      As Worksheet
            
    WorksheetExists = False
        
    For Each ws In ThisWorkbook.Worksheets
    
            If ws.Name = WorksheetName Then WorksheetExists = True
            
    Next ws
    
End Function

Deze wil ik graag als volgt gebruiken:

Public Function Ttttest()
    On Error GoTo ErrHandler:

    Dim rCell           As Range
    
    For Each rCell In ThisWorkbook.Worksheets("C - Eenheden").Range("C_LIJST_eenheden")
    
        If rCell.Value <> "" Then
        
            If WorksheetExists(ThisWorkbook.Worksheets("CALC - " & rCell.offset(0, 3).Value)) Then
            
                MsgBox "CALC - " & rCell.offset(0, 3).Value
                           
            End If
                        
        End If
    
    Next rCell
    
    GoTo Ttttest_exit

ErrHandler:

    Resume Next

Ttttest_exit:
  
    Exit Function
        
End Function

Nu verwacht ik alleen een Msgbox op de eerste waarde uit C_LIJST_eenheden, omdat alleen dat tabblad bestaat. Echter ik krijg nu 7x een Msgbox met daarin alle waarden vanuit C_LIJST_eenheden met CALC - ervoor. De laatste 6 tabbladen bestaan nog niet. Wat gaat er mis in deze code met bepaling of de worksheet bestaat?

 

[edmoor]

Doe het eens zo:
If WorksheetExists("CALC - " & rCell.Offset(0, 3).Value) Then

 

[johhnnyboy]

Ah dat werkt inderdaad. Bij nader inzien verwacht de functie inderdaad ook een string.

Thnx!

 

[edmoor]

Precies :thumb: