Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:07:03
Alternative Summewenn für Verlinkung closed Workbook
23.04.2024 13:44:37
Datum in Excelformel anzeigen
23.04.2024 13:31:41
alle Tabellblätter als csv exportieren - Verzeichnis wählen
23.04.2024 13:19:18
Daten aus externer Datei als Bereich übernehmen... ?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
908to912
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
-

43 Forumthreads zu ähnlichen Themen

VBA: Alle PivotItems ausblenden
Daniel

Hallo Profis,
wie kann ich per VBA alle PivotItems einer Pivot-Tabelle ausblenden lassen?
Vielen Dank schon einmal.
Daniel
11.09.2008 13:42:00
Thread-ID: 1009110
2 Beiträge
Anzeige
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
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
6
8
6
9
6
2
3
5
3
4
6
4
2
8
2
4
2
1
2
5
4
6
9