Excel: Prüfen ob ein Worksheet vorhanden ist
Folgende kleine Funktion prüft, ob ein Excel Arbeitsblatt vorhanden ist:
Option Explicit
Public Function Worksheet_exits(ByVal wb As Workbook, ByVal sSheetname As String) As Boolean '------------< Worksheet_exits() >------------------- Dim bReturn As Boolean bReturn = False sSheetname = LCase(sSheetname)
'---< @Loop: Worksheets >--- Dim ws As Worksheet For Each ws In wb.Worksheets Dim sName As String sName = LCase(ws.Name) If sName = sSheetname Then bReturn = True Exit For End If Next '---</ @Loop: Worksheets >---
'< output > Worksheet_exits = bReturn '</ output > '------------</ Worksheet_exits() >------------------- End Function |