Arbeitsblatt löschen, wenn Code vorhanden ist

Question

Ich habe einen VBA-Code geschrieben, um zu sehen, ob ein Blatt existiert und ob es gelöscht wird und dann ein anderes Codemodul wieder aufnimmt. Aus irgendeinem Grund tut der Code, den ich unten habe, nichts und ich kann nicht herausfinden warum.

Sub delete() 
    Dim ws As Worksheet 

    If worksheetexists("Export Worksheet") Then 
     Set ws = Worksheets("Export Worksheet")   
     Application.DisplayAlerts = False   
     ws.delete   
     Call GetData   
    Else 
     Call GetData 
    End If 

End Sub 

Public Function worksheetexists(sheetname As String, Optional wrkbk As Workbook) As Boolean 
    Dim wrksht As Worksheet 

    If wrkbk Is Nothing Then 
     Set wrkbk = ActiveWorkbook   
    End If 

    On Error Resume Next 

    Set wrksht = wrkbk.Worksheets(sheetname) 
    worksheetexists = (Err.Number = 0) 
    Set wrksht = Nothing 

    On Error GoTo 0 
End Function 

Answer 1

ich Ihren Code leicht aktualisiert:

Sub delete() 
    Dim ws As Worksheet 

    If worksheetexists("Export Worksheet") Then 
     Set ws = Worksheets("Export Worksheet") 
     Application.DisplayAlerts = False 
     ws.delete 
     Call GetData("pass") 
    Else 
     Call GetData("fail") 
    End If 

End Sub 

und verwendet diese für GetData():

Sub GetData(s) 
    MsgBox s 
End Sub 

und es funktionierte perfekt sowohl für den Pass und scheitern Fälle. Überprüfen Sie die Schreibweise des Arbeitsblattnamens ............................ insbesondere die Anzahl der Leerzeichen.

Answer 2

@BriannaCates, die Funktion funktioniert für mich, funktioniert vielleicht für Sie.

Public Function deleteWorksheet(sheet As String, Optional work As Workbook) As Boolean 
    Dim ws As Worksheet 
    Dim deleted As Boolean 

    If work Is Nothing Then 
     Set work = ThisWorkbook 
    End If 

    deleted = False 
    For Each ws In work.Worksheets 
     If ws.Name = sheet Then 
      ws.Delete 
      deleted = True 
      Exit For 
     End If 
    Next 

    deleteWorksheet = deleted 

End Function