Makro Absturz - Sheets einblenden

[Kuwer]

Hallo,

du verwendest nicht die Eigenschaft, die es für  .Visible gibt.

xlsheethidden(0), xlsheetveryhidden(2), xlsheetvisible(-1).

Bei "Sensibelchen" kann True/False schon mal ins Leere laufen

hast Du das selber schon "erlebt"? Also ich kann das nicht glauben.

Code:

Sub aaa()
  Debug.Print CLng(False)
  Debug.Print CLng(xlSheetHidden)
  Debug.Print False = xlSheetHidden
  Debug.Print CLng(True)
  Debug.Print CLng(xlSheetVisible)
  Debug.Print True = xlSheetVisible
End Sub

Gruß Uwe

[juvee]

Hi Uwe,

ja, unwahrscheinlich aber wahr, auf einem Dell-Firmenlaptop ( xl2007 ), falls meine Erinnerung mich nicht täuscht.

Woran es lag, konnte ich nicht ergründen. Gebrochene Verweise waren nicht vorhanden und tiefer kam ich nicht ins System. Hätte ich auch nicht gekonnt.

VG Juvee

[snb]

Meinen Vorschlag: (basiert auf #1)

Code:

Sub M_snb()
  Application.ScreenUpdating = 0

  For Each it In Sheets
      it.Visible = -1
  Next

  For Each it In Sheets([transpose(row(1:6))])
    it.Visible = 2
  Next
End Sub