11.12.2019, 12:09
Hi,
wo liegt der Fehler?
Ich möchte, dass er alle Blätter AUßER den jeweiligen Array löscht.......
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.......