Alle Blätter=Visible

Forumthread: Alle Blätter=Visible

09.12.2003 11:51:40

Giuseppe

Hallo Freunde,
Kleine VBA Frage:
welche Befehl muss man eingeben, um alle Sheets "Visible" zu machen?
Danke Giuseppe

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Alle Blätter=Visible

09.12.2003 11:59:10

andreas e

Hallo,


Sub alle()
For i = 1 To Worksheets.Count
Sheets(i).Visible = True
Next
End Sub

Gruß
Andreas E

http://www.skripteundaufgaben.de
viele kostenlose Downloads und Links zu EXCEL und mehr
http://www.fachforen.de
eine Linksammlung zu diversen fachforen

AW: Alle Blätter=Visible

09.12.2003 12:00:13

Boris

Hi Guiseppe,


Sub sichtbar()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Sheets
Ws.Visible = True
Next Ws
End Sub

Grüße Boris

AW: Alle Blätter=Visible

09.12.2003 12:01:05

Matthias G

Hallo Giuseppe,

das geht so:


Sub Vis()
Dim sh
For Each sh In Sheets
sh.Visible = True
Next
End Sub

AW: Alle Blätter=Visible

09.12.2003 12:04:06

Danke an ALLE!!