Blatt einblenden
19.04.2006 14:16:40
helena
noch ein Punkt sicher letzte für heute
Mappe mit ca. 20 Blatt, bei Start alle ausgeblendet bis auf "ARBEIT", möchte aber bei Start/open File noch ein Blatt mit INFO einblenden solange bis im INFOBLATT ein Klick auf irgendwas so als LESEBESTàTIGUNG dann geht "ARBEIT" erst auf.
beim beenden oder Button blende ich Blätter jetzt so aus ...
und bei START sollte INFOBLATT ... lesen ... klick .... "ARBEIT" öffnen
Sub Ausblenden()
Dim i As Integer
Application.ScreenUpdating = False
For i = Worksheets.Count To 1 Step -1
If Worksheets(i).Name <> "Arbeit" Then Worksheets(i).Visible = False
Next i
Application.ScreenUpdating = True
End Sub
gruss helena
Anzeige