Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabellenblätter ausblenden wenn Bedingung erfüllt

Tabellenblätter ausblenden wenn Bedingung erfüllt
Daniela
Hallo miteinander
Gibt es ein Makro, welches in einer Excel-Arbeitsmappe sämtliche Register ausblendet, welche z.B. in der Zelle A1 ein "x" stehen haben? Die restlichen Register sollen jedoch weiterhin eingeblendet bleiben?
Danke für eure Hilfe.
Gruss

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tabellenblätter ausblenden wenn Bedingung erfüllt
18.04.2012 12:00:09
Reinhard
Hallo Daniela,
Sub tt()
Dim wks As Worksheet
On Error GoTo tt_Error
For Each wks In ThisWorkbook.Worksheets
wks.Visible = wks.Range("A1")  "x"
Next wks
On Error GoTo 0
Exit Sub
tt_Error:
MsgBox "Error " & Err.Number & vbLf & " (" & Err.Description & _
") in procedure tt of Modul Modul1"
End Sub

Gruß
Reinhard
AW: Tabellenblätter ausblenden wenn Bedingung erfüllt
18.04.2012 12:19:18
Daniela
Danke Reinhard
Hat geklappt.
Gruss, Daniela
Anzeige

371 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige