Thema Datum  Von Nutzer Rating
Antwort
22.05.2017 14:56:16 Officer_Bierschnitt
NotSolved
Blau Existenz eines Sheets prüfen
 22.05.2017 15:05:41 SJ
NotSolved
23.05.2017 19:00:18 WErner
NotSolved
24.05.2017 08:34:16 Officer_Bierschnitt
NotSolved
24.05.2017 11:43:58 Werner
NotSolved
24.05.2017 12:39:01 Officer_Bierschnitt
Solved
24.05.2017 15:17:37 Werner
Solved
26.05.2017 09:50:20 Officer_Bierschnitt
NotSolved
26.05.2017 14:05:10 Werner
NotSolved

Ansicht des Beitrags:
Von:
SJ		 Datum:
22.05.2017 15:05:41		 Views:
845		 Rating:
     
Antwort:
  Ja
Thema:
Existenz eines Sheets prüfen

Hallo,

zum Beispiel so:

Option Explicit

Public Function worksheet_exists(ByVal wks_name As String) As Boolean
    Dim wks As Worksheet
    
    On Error Resume Next
    Set wks = ActiveWorkbook.Worksheets(wks_name)
    
    If Err.Number = 0 Then
        worksheet_exists = True
        Set wks = Nothing
    End If
    
    On Error GoTo 0
End Function

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.05.2017 14:56:16 Officer_Bierschnitt
NotSolved
Blau Existenz eines Sheets prüfen
 22.05.2017 15:05:41 SJ
NotSolved
23.05.2017 19:00:18 WErner
NotSolved
24.05.2017 08:34:16 Officer_Bierschnitt
NotSolved
24.05.2017 11:43:58 Werner
NotSolved
24.05.2017 12:39:01 Officer_Bierschnitt
Solved
24.05.2017 15:17:37 Werner
Solved
26.05.2017 09:50:20 Officer_Bierschnitt
NotSolved
26.05.2017 14:05:10 Werner
NotSolved