Thema Datum  Von Nutzer Rating
Antwort
09.01.2015 19:41:57 Helmut
NotSolved
Blau Makro Arbeitsblätter ausblenden
 11.01.2015 20:04:46 MarkusK
NotSolved
12.01.2015 15:29:47 MarkusK
NotSolved
12.01.2015 17:23:01 Gast10355
NotSolved
13.01.2015 11:20:40 Helmut
NotSolved

Ansicht des Beitrags:
Von:
MarkusK		 Datum:
11.01.2015 20:04:46		 Views:
741		 Rating:
     
Antwort:
  Ja
Thema:
Makro Arbeitsblätter ausblenden

Hallo Helmut,

 

hier mal 2 Beispiele zum ausblenden und eins zum Einblenden.

Beim Ausblenden_1 werden die Blätter einfach nach der Reihe ausgeblendet. also z.B. Blatt 1 bis 9.

Beim Ausblenden_2 gehe ich über die Namen.

Schau es dir einfach mal an.

Public Sub ausblenden_1()
Dim i As Integer

For i = 1 To Day(Now) - 1
    Sheets(i).Visible = False
Next i
End Sub

Public Sub ausblenden_2()
Dim i As Integer

For i = 1 To Day(Now) - 1
    Sheets("Blatt (" & i & ")").Visible = False
Next i
End Sub


Public Sub Einblenden()
Dim i As Integer
If InputBox("Zum Einblenden bitte Passwort eingeben") = "Juhu" Then
    For i = 1 To Sheets.Count
        Sheets(i).Visible = True
    Next i
End If
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.01.2015 19:41:57 Helmut
NotSolved
Blau Makro Arbeitsblätter ausblenden
 11.01.2015 20:04:46 MarkusK
NotSolved
12.01.2015 15:29:47 MarkusK
NotSolved
12.01.2015 17:23:01 Gast10355
NotSolved
13.01.2015 11:20:40 Helmut
NotSolved