MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 05.05.2008, 09:57   #1
lisabo
MOF User
MOF User
Frage Excel 2007 - Blatt Ein-/Ausblenden

Hallöchen,

ich möchte alle ausgeblendeten Datenblätter per Makro/VB einblenden.

Ebenso möchte ich alle Datenblätter die zwischen a.. und z... liegen ausblenden können

Gibt es dafür eine elegante Lösung?

Gruss

Lisa
lisabo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.05.2008, 10:10   #2
rastrans
MOF Profi
MOF Profi
Suche

Hallo!

Mit Hilfe der Suchfunktion (Begriffe: Tabellenblätter ausblenden) wärest du sehr schnell auf folgendes Thema gestoßen!

http://www.ms-office-forum.net/forum...d.php?t=231013

Es macht nicht wirklich Spass immer wieder den gleichen Text zu schreiben!

Und damit wir das nicht machen müssen, hat sich mal jemand die Mühe gemacht und eine Suche in dieses Forum programmiert!

Viele Grüße
rastrans

__________________

There are 10 different types of people in the world. Those who understand the binary system and those who not.

Da für die Helfer der einzige Lohn eine Rückmeldung ist, wäre ein kurzes Feedback wünschenswert.
Auch sehen andere User, die ein ähnliches Problem haben, inwiefern die Lösung zur Beseitigung des Problems beigetragen hat.
Übrigens : Hilfreiche und positive Beiträge kann man auch bewerten!
rastrans ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.05.2008, 10:14   #3
ZeC
MOF User
MOF User
Standard

Hi Lisa!

Probiers mal mit folgenden Modulen:

Code:

Option Explicit

Sub Sheets_einblenden()
Dim ws As Worksheet
For Each ws In Worksheets
  ws.Visible = xlSheetVisible
Next
End Sub

Sub Sheets_ausblenden()
Dim ws As Worksheet
For Each ws In Worksheets
  If Not IsNumeric(ws.Name) Then
    ws.Visible = xlHidden
  End If
Next
End Sub
Mit Sheets_einblenden werden alle Sheets sichtbar und mit Sheets_ausblenden werden alle Sheets die mit Buchstaben beginnen ausgeblendet.

__________________

greetz Chris

Hat mein Tipp geholfen oder nicht? Danke für dein Feedback!


Ist deine Frage erledigt? Dann setze deinen Thread bitte auf erledigt!


Moment Capturing - Share your moments
ZeC ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.05.2008, 12:15   #4
lisabo
Threadstarter Threadstarter
MOF User
MOF User
Frage

Hallo und vielen Dank.

Ja, sorry, ich hätte suchen können, aber bislang hatte das noch nie geklappt.

Ich komme auch mit dem Ausblenden nicht so recht weiter.

Ich möchte die ersten drei Tabellenblätter stehen lassen und ab dem vierten Tabellenblatt ausblenden.

Das dritte Tabellenblatt heißt "Übersicht" und danach kommt "Monat1", "Monat2" und "perso" usw. Klappt nicht wenn ich diese Formel nehme:

Dim ws As Worksheet
Sheets("Übersicht").Visible = xlSheetVisible
For Each ws In Worksheets
If ws.Name <> "Übersicht" Then ws.Visible = xlSheetVeryHidden
Next ws


Kann mir da nochmal jemand helfen?

Danke.

Lisa
lisabo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.05.2008, 12:53   #5
rastrans
MOF Profi
MOF Profi
Standard

Hallo!
Code:

Dim ws As Worksheet

Sheets("Übersicht").Visible = xlSheetVisible
For Each ws In Worksheets
    Select Case ws.Name
        Case "Übersicht", "Monat1", "Monat2", "perso"
            ws.Visible = xlSheetVisible
        Case Else
            ws.Visible = xlSheetVeryHidden
    End Select
Next ws
und beim fettgedrucken einfach die Tabellennamen eintragen, die sichtbar sein sollen. alle anderen werden ausgeblendet!

Viele Grüße
rastrans

__________________

There are 10 different types of people in the world. Those who understand the binary system and those who not.

Da für die Helfer der einzige Lohn eine Rückmeldung ist, wäre ein kurzes Feedback wünschenswert.
Auch sehen andere User, die ein ähnliches Problem haben, inwiefern die Lösung zur Beseitigung des Problems beigetragen hat.
Übrigens : Hilfreiche und positive Beiträge kann man auch bewerten!
rastrans ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.05.2008, 13:50   #6
lisabo
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hat alles super geklappt.

Vielen Dank dafür.



LG

Lisa
lisabo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:52 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.