VBA - Aufruf von einer anderen Arbeitsmappe

Question

Versuchen, Blätter basierend auf Daten aus einem anderen Arbeitsmappenblatt zu löschen - Durch Vergleichen und Zugreifen auf Daten aus einem anderen Arbeitsmappenblatt, funktioniert es jedoch nicht. Ich konnte es tun, wenn das Blatt in der gleichen Arbeitsmappe war, aber ich möchte das Arbeitsblatt nicht jedes Mal importieren.

Code bisher, Mein Problem ruft von einem anderen Arbeitsblatt.

sub delete() 
    Dim wb As Workbook 
    Dim wks As Worksheet 
    Dim MyRange As Range 
    Dim Cell As Range 
    Set wb = Workbooks("name.xlsx") 
    Set wks = wb.Worksheets("allnames") 
    With wks 
     Set MyRange = wks.Range("A1", .Cells(.Rows.Count, "A").End(xlUp)) 
    End With 
    On Error Resume Next 
    Application.DisplayAlerts = False 
    For Each Cell In MyRange 
     Sheets(Cell.Value).Delete 
    Next Cell 
    Application.DisplayAlerts = True 
    On Error GoTo 0 
End Sub 

Vielen Dank im Voraus

Answer 1

vielleicht sind Sie nach etwas wie folgt aus:

Option Explicit 

Sub delete() 
    Dim toDeleteSheetsWb As Workbook 
    Dim Cell As Range 

    Set toDeleteSheetsWb = Workbooks("WorkbookWithSheetsToDelete.xlsx") '<-- set the workbook whose sheets will be deleted (change "WorkbookWithSheetsToDelete.xlsx" to its actual name) 
    With Workbooks("name.xlsx").Worksheets("allnames") '<-- reference the worksheet from which to read worksheets names to be deleted in "WorkbookWithSheetsToDelete.xlsx" workbook 
     Application.DisplayAlerts = False 
     For Each Cell In .Range("A1", .Cells(.Rows.Count, "A").End(xlUp)) 
      toDeleteSheetsWb.Sheets(Cell.Value).delete 
     Next Cell 
     Application.DisplayAlerts = True 
    End With 
End Sub