Prüfen, ob Blatt existiert

Kann mir bitte jemand raten, wo ich bin läuft hier falsch? Ich möchte, um zu überprüfen, ob das Blatt mit dem Namen "test" existiert und wenn nicht, erstellen und benennen Sie das Blatt "test". Wenn es vorhanden ist, führe ich einen separaten code-Blöcke, die ich noch nicht hier. Ich habe verwendet, error-handling, dass es ignoriert die errornif es passiert. 

If Sheets("test").Name = "" Then  
'MsgBox Sheets("test").Name & "Name"  
.Worksheets.Add         After:=ThisWorkbook.Worksheets("test2")  
.ActiveSheet.Name = "test"  
End If

Egal was ich mache, dieser Abschnitt der code immer ausgeführt wird und erstellt ein neues Blatt.Der code wird ordnungsgemäß ausgeführt, wenn das Blatt "test" noch nicht existiert. Es erstellt ein neues Blatt und benennt Sie um und bewegt sich auf. Natürlich muss es nicht benennen Sie das Blatt in dem anderen Fall, da schon ein weiteres Blatt "test" mit dem gleichen Namen.

Dank!

InformationsquelleAutor Prafulla Kumar Shahi | 2016-01-25
  1. 0

    Nicht ganz sicher, warum Sie immer weitere Arbeitsblätter Hinzugefügt, aber ich würde verwenden und die externe Funktion um zu prüfen, ob das worksheet vorhanden ist...

    Ich würde auch hinzufügen, einige Fehlerprüfung für "test2" so, hier ist etwas code, die Sie sollten in der Lage sein, um anzupassen

    Sub Test()
    Dim wsName As String: wsName = "test"
    If Not WorkSheetExists(wsName) Then Worksheets.Add().Name = wsName
    If WorkSheetExists("test2") Then Worksheets(wsName).Move _
        After:=ThisWorkbook.Worksheets("test2")
End Sub

Function WorkSheetExists(ByVal strName As String) As Boolean
   On Error Resume Next
   WorkSheetExists = Not ActiveWorkbook.Worksheets(strName) Is Nothing
End Function
    • funktioniert nicht. Habe versucht, diese Methode und auch die für (eine Schleife durch alle Arbeitsblätter), die im Grunde tun Sie nichts. es geht nicht, in der Nähe der wsname Blatt überhaupt.
    • wieder mal versucht. es funktionierte, einige Fehler. Danke!
    InformationsquelleAutor Tragamor
  2. 1

    Wenn Sie nicht allzu vertraut mit VBA, so könnten Sie nicht als eine Funktion:

    Sub checkSheet()
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = "MySheet" Then
            exists = True
        End If
    Next i

    If Not exists Then
        Worksheets.Add.Name = "MySheet"
    End If
End Sub
    InformationsquelleAutor Josh Whitfield
  3. 0

    Einen etwas anderen Weg, dies zu erreichen wäre, um ein Wörterbuch zu erstellen, der den Blatt-Namen.

    Dann können Sie die exists-Funktion zu testen, ob die Platte vorhanden ist oder nicht

    Dim sheetNames As Object
Dim ws As Worksheet

' Create and populate dictionary
Set sheetNames = CreateObject("Scripting.Dictionary")
For Each ws In ThisWorkbook.Sheets
    sheetNames.Add ws.Name, ws.Index
Next ws

' Test if sheet exists
If Not sheetNames.Exists("test") Then
    ' If not add to workbook
    ThisWorkbook.Worksheets.Add(after:=ThisWorkbook.Worksheets("test2")).Name = "test"
    ' add sheet to dictionary
    sheetNames.Add "test", ThisWorkbook.Worksheets("test").Index
End If
    InformationsquelleAutor Tom
  4. -1

    Versuchen Sie dies :

    Function IsExists(name As String, Optional wb As Workbook) As Boolean
    Dim sheet As Worksheet

     If wb Is Nothing Then Set wb = ThisWorkbook
     On Error Resume Next
     Set sht = wb.Sheets(name)
     On Error GoTo 0
     IsExists = Not sheet Is Nothing
 End Function
    • Nur für den Fall, der OP hat eine begrenzte Kenntnisse in vba, wie würden Sie kombinieren, was Sie gerade gebucht mit dem, was der OP versucht zu tun mit seinem/Ihrem code?
    • Ich gebe dies als ein plus - Sie übergeben den Namen des sheet und workbook-Referenz eher als Blick auf jedes Blatt wiederum. @Scott Es wird return TRUE/FALSE - also IF NOT IsExists("Sheet1") THEN
    • Ich weiß, wie es zu benutzen, aber für eine gute Antwort braucht es, um zu zeigen, die OP wie für die Referenz-Funktion aus dem Untermenü.
    InformationsquelleAutor Sandesh
Schreibe einen Kommentar