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

Blatt einblenden

Blatt einblenden
19.04.2006 14:16:40
helena
Hallo
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

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

Betreff
Datum
Anwender
Anzeige
AW: Blatt einblenden
19.04.2006 14:31:29
Matthias
Hallo Helena,

Sub Ausblenden()
Dim Sh As Worksheet
Application.ScreenUpdating = False
Sheets("Infoblatt").Visible = True
For Each Sh In ThisWorkbook.Worksheets
Sh.Visible = UCase(Sh.Name) = "INFOBLATT"
Next Sh
Application.ScreenUpdating = True
End Sub

Im Blatt "Infoblatt" erzeugst zu eien Button aus der Steuerelement-Toolbox und weist ihm folgendes Makro zu:
(ins Modul von "Infoblatt":)

Private Sub CommandButton1_Click()
Sheets("Arbeit").Visible = True
Me.Visible = False
End Sub

Gruß0 Matthias
Anzeige
@Matthias perfekt und DANKE (o.T.)
19.04.2006 14:43:48
helena
.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige