Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > [VBA] Nochmal ein Array Problem - Worksheet.delete
Normale Version: [VBA] Nochmal ein Array Problem - Worksheet.delete
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

jules

11.12.2019, 12:09
Hi,

wo liegt der Fehler?

Code:
        If Worksheets("ProtokollIntern").Visible = xlSheetHidden Then
    arrH = Array("Auswertung", "Protokoll")
    Else
    arrH = Array("Auswertung", "Protokoll", "ProtokollIntern")
    End If
Worksheets(arrH).Select
       With ActiveWorkbook
               For Each wksSheet In Worksheets
       If wksSheet.Name <> Worksheets(arrH) Then wksSheet.Delete
       Next

Ich möchte, dass er alle Blätter AUßER den jeweiligen Array löscht.......

Steffl

11.12.2019, 13:30
Hallo,

ungetestet

Code:
With ActiveWorkbook
               For Each wksSheet In Worksheets
'       If wksSheet.Name <> Worksheets(arrH) Then wksSheet.Delete
      
         If IsNumeric(Application.WorksheetFunction(wksSheet.Name, arrH, 0)) Then
        
         Else
            wksSheet.Delete
         End If
       Next

jules

11.12.2019, 20:41
Error: 438 Objekt unterstützt diese Eigenschaft oder Methode nicht

Huh

Mase

11.12.2019, 22:09
Hi,

vllt hilft Dir sowas weiter:
Code:
Sub checkWksNameInWorksheets()
    Dim wks As Worksheet
    For Each wks In ThisWorkbook.Worksheets
        Debug.Print wks.Name; Application.Match(wks.Name, Array("Tabelle1", "Tabelle2", "Tabelle5"), 0)
    Next wks
End Sub

Steffl

12.12.2019, 07:16
Hallo,

sorry, das Match vergessen

Code:
If IsNumeric(Application.WorksheetFunction.Match(wksSheet.Name, arrH, 0)) Then
Clever-Excel-Forum > Office-Anwendungen > Excel > [VBA] Nochmal ein Array Problem - Worksheet.delete