Alle Blätter=Visible

Bild

Betrifft: Alle Blätter=Visible
von: Giuseppe
Geschrieben am: 09.12.2003 10:51:40

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

Bild


Betrifft: AW: Alle Blätter=Visible
von: andreas e
Geschrieben am: 09.12.2003 10:59:10

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


Bild


Betrifft: AW: Alle Blätter=Visible
von: Boris
Geschrieben am: 09.12.2003 11:00:13

Hi Guiseppe,


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


Grüße Boris


Bild


Betrifft: AW: Alle Blätter=Visible
von: Matthias G
Geschrieben am: 09.12.2003 11:01:05

Hallo Giuseppe,

das geht so:

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



Bild


Betrifft: AW: Alle Blätter=Visible
von: Danke an ALLE!!
Geschrieben am: 09.12.2003 11:04:06

.


Bild

Beiträge aus den Excel-Beispielen zum Thema " Datenbankabfrage mit mehreren Argumenten"