Projekt-Anfragen: Tel: 07022/9319004 info@CodeDocu.de Software Entwicklung in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

 

 

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

 

Mobile
»
Excel vba : Alle Worksheets auflisten
»
Vba: Sonderzeichen austauschen korrigieren
»
Gelöst: Excel vba copy paste values 100e Fehler
»
Excel vba: eine Liste automatisch per makro aktualisieren
»
Excel: Prüfen ob ein Worksheet vorhanden ist
»
Excel Code: in Powerpoint Grafiken oder Bereiche einfügen
»
Neu (22.03.20Excel fehler: -2147188160 LinkFormat.BreakLink : Invalid request. This operation requires a linked object.19 14:59:14)
»
Excel vba: Blätter in eine neue Datei kopieren
»
Excel Code für ein kleines Addin
»
Excel Checkbox in vba makro setzen

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Info@CodeDocu.de