Frage : Kombination von VBA Aussage

Gibt es eine Weise, Linie 2 und 3 zu kombinieren?  Aus irgendeinem Grund wählt sie nicht das MFL Blatt vor und löscht das falsche.  Gibt auch es eine Weise, sie zu löschen, ob es ein verstecktes Blatt oder nicht ist?

Please raten und Dank. - R-

1: 2: 3: 4:

Application.DisplayAlerts = falsch Blätter („MFL“). Auserwählt ActiveWindow.SelectedSheets.Delete Application.DisplayAlerts = richten aus

Antwort : Kombination von VBA Aussage

auf verstecktem Blatt können Sie überprüfen wenn verstecktes Blatt, dann bilden es sichtbar, bevor Sie löschen.

wenn Blätter („MFL“). Sichtbar = falsch dann
   Blätter („MFL“). Sichtbar = ausrichten
    Blätter („MFL“). Auserwählt
    ActiveWindow.SelectedSheets.Delete
sonst
 Blätter („MFL“). Auserwählt
    ActiveWindow.SelectedSheets.Delete
beenden wenn