Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Reiter mit gleichen Inhalten einblenden.

Forumthread: Alle Reiter mit gleichen Inhalten einblenden.

Alle Reiter mit gleichen Inhalten einblenden.
20.09.2007 13:00:50
Andi
Hallo !
Ich habe mehrere Tabellen, die ich teilweise automatisch über Makro generiere.
So entstehen mir Tabellen mit den Namen z.B. "Heiner Müller Januar", "Heiner Müller Februar", .....
und "Michaela Test Januar", "Michaela Test Februar", usw....
Jetzt möchte ich, wenn das ActiveSheet "Michaela Test Januar" ist, dass ich per Knopfdruck
alle "Michaela Test [Monat]" sichtbar werden. Der Rest soll ausgeblendet bleiben.
Vielen Dank
Gruß
Andi

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Denkansatz für die Lösung ....
20.09.2007 13:14:57
Klaus
Hallo Andi,
unten stehendens Makro macht nicht ganz was du möchtest - aber vielleicht hilft es dir schon als Denkansatz.
Alle Blätter, von deren Namen die ersten neun Buchstaben identisch mit dem aktiven sind, werden gezeigt und die übrigen ausgeblendet.

Sub wksBlenden()
Dim wks As Worksheet
Dim wksN As String
wksN = VBA.Left(ActiveSheet.Name, 9)
For Each wks In Worksheets
If VBA.Left(wks.Name, 9) = wksN Then
wks.Visible = xlSheetVisible
Else
wks.Visible = xlSheetHidden
End If
Next wks
End Sub


Vielleicht hilft dir das ja weiter. Ich lass mal offen.
Grüße,
Klaus M.vdT.

Anzeige
AW: Denkansatz für die Lösung ....
20.09.2007 15:09:40
Andi
Danke. Hat prima funktionert.
Gruß
Andi

Danke für die Rückmeldung! o.w.T.
21.09.2007 08:16:16
Klaus
-
;

Forumthreads zu verwandten Themen

Sortierungs-Makro über allen Tabellenblätter
Luke

Hi!
Mein Thema wurde hier schon öfters behandelt, doch es scheint als sei ich nicht Fähig das hinzukriegen. Ich möchte gerne mit einem Makro mehrere Tabellenblätter ansprechen. Ziel: Beim Klick auf den Button sollten sich 13 Tabellenblätter (simultan) absteigend (nach Spalten E und F) sorti...
27.08.2009 15:43:30
Thread-ID: 1099010
3 Beiträge
Makro auf alle Tabellenblätter laufen lassen
Teggnodd

Hallo,
ich habe ein digitales Oszilloskop mit dem ich alle paar Minuten Werte aufnehmen will, dazu benutze ich Excel. Ich habe mir schon ein kleines Makro zum auslesen der Werte erstellt, hat auch ganz gut Funktioniert. Nun möchte ich aber auch ein Diagramm zu den Werten haben. Dazu habe ic...
13.12.2011 11:19:06
Thread-ID: 1241841
7 Beiträge
Makro für alle Tabellenblätter (Filter,ausblenden.
Maggie

Hallo
ich habe 3 Makros welche nur auf dem aktiven Tabellenblatt laufen, bräuchte sie aber so das sie gleichzeitig in allen Tabellenblättern laufen... habe Null-Ahnung wie ich das hin bekommen soll...
kann mir bitte jemand dabei helfen?
Gruß
Maggie
hier die 3 Makros
---...
06.05.2012 15:13:47
Thread-ID: 1262489
9 Beiträge
Makro - für allen Tabellenblätter gültig
Herbert

Hallo,
wie kann man dieses Makro abändern, dass auf es nicht nur auf dem aktuellen Tabellenblatt sondern auf allen Blättern der Datei ausgeführt wird?
Sub spalte_c_ausblenden() ' spalte_c_ausblenden Makro Columns("C:C").Select Selection.EntireColumn.Hidden = True End Sub vielen Dank im...
14.11.2012 16:54:04
Thread-ID: 1286665
7 Beiträge
VBA Code für alle Blätter
WalterK

Guten Abend,
der folgende Code kopiert Zellen per Doppelklick in eine andere Spalte des Blattes.
Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim KopiereZuSpalte As Long With ActiveSheet KopiereZuSpalte = 10 'Spaltennummer angeben, in...
17.11.2012 18:48:10
Thread-ID: 1287094
10 Beiträge
VBA - aus der personl.xls alle Blätter ansprechen
WalterK

Hallo,
der folgende Code sucht in Spalte C die in arName1 angeführten Zellinhalte und ersetzt sie durch die in arName2 angeführten Zellinhalte.
Jetzt wollte ich den Code in der Personl.xls speichern damit er alle Blätter der aktiven Mappe (bis auf 1) auf einmal durchläuft. Tut er so abe...
18.11.2012 15:17:42
Thread-ID: 1287171
7 Beiträge
VBA alle Blätter speichern funktioniert nicht rich
Andreas

Hallo Excel Profis,
ich habe mit Hilfe dieses super Forums folgenden VBA Code um alle Blätter einer Mappe einzeln in einem anderen Ordner zu speichern.
Sub AllSheetSpeichern() Dim WS As Worksheet Dim Path As String Dim Wb As String Dim lngFileformat As Long Path = ActiveWorkbook.Path &a...
01.02.2013 13:26:24
Thread-ID: 1297137
3 Beiträge
VBA für alle Tabellenblätter
Bernd

Hallo an Alle,
ich bitte um Eure Hilfe. Ich habe ein Makro, das mir in einem Zellbereich bei einem Doppelklick ein Haken oder ein x schreibt. Dies funktioniert in dem Tabellenblatt, in dem das Makro gespeichert ist. Ich möchte aber die Dateien nicht in .xslm sondern in .xlsx, also ohne Makr...
22.06.2014 22:03:57
Thread-ID: 1366938
4 Beiträge
VBA: alle Blätter durchgehen
Hewad
Hallo zusammen,
was mache ich eigentlich hier falsch. Die Schleife soll alle Blätter durchlaufen und in der Zelle "A1", in jedem einzelnen Blatt des Arbeitsmappe, eine 1 einfügen.
Mit diesem Code geschieht es nur im ersten Sheet.
Vielen Dank im Voraus Sub WorksheetLoop() Dim WS_Count A...
30.06.2014 12:59:30
Thread-ID: 1368151
6 Beiträge
VBA - Nur 3-stellige Tabellenblätter anzeigen
Julian

Hallo Community,
ich verzweifle gerade an dem Inhalt einer in einer UserForm befindlichen ComboBox.
Zurzeit werden mir in dieser ComboBox alle Tabellenblätter angezeigt. Ich möchte jedoch nur die angezeigt bekommen, die dreistellig sind.
Hier mein bisheriger Code: Private Sub Comma...
15.12.2015 16:36:22
Thread-ID: 1464519
5 Beiträge
VBA - Nur 3-stellige Tabellenblätter anzeigen
Julian

Hallo Community,
ich verzweifle gerade an dem Inhalt einer in einer UserForm befindlichen ComboBox.
Zurzeit werden mir in dieser ComboBox alle Tabellenblätter angezeigt. Ich möchte jedoch nur die angezeigt bekommen, die dreistellig sind.
Hier mein bisheriger Code: Private Sub Comma...
15.12.2015 17:06:12
Thread-ID: 1464524
3 Beiträge
Alle Tabellenblätter mittels Codename ausblenden
Torsten

Nun zu einer Sache mit der sich jeder befasst, wenn er eine Tabelle mit vertraulichen Daten erstellt.
Wie blende ich beim schließen des Workbooks alles aus und beim öffnen alles ein?!
Da beim öffnen der Mappe und nicht aktiviertem Inhalt das letzte bearbeitete Blatt vor dem speichern zu...
24.02.2016 02:04:40
Thread-ID: 1477692
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige