Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1856to1860
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
1856to1860
1856to1860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopierte Tabellenblätter ein/ausblenden

Kopierte Tabellenblätter ein/ausblenden
26.11.2021 15:39:47
Manfred
Hallo, ich blende ein Tabellenblatt per Makro aus und ein, also was ganz einfaches. 

Application.ScreenUpdating = False
Worksheets("Muster").Visible = True
Worksheets("Muster").Activate
Ausblenden mit

Application.ScreenUpdating = False
Worksheets("Muster").Visible = xlVeryHidden
Nun kopiere ich die Tabelle "Muster" und diese bekommt dann den Namen "Muster (2)", "Muster (3)" .....
Wie muss ich nun mein Makro erweitern, damit ich auch "Muster (2)", "Muster (3)" ... aus- und einblenden kann?
LG Manfred

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopierte Tabellenblätter ein/ausblenden
26.11.2021 15:41:42
Hajo_Zi
Hallo Manfred,
ActiveSheet .Visible = xlVeryHidden
GrußformelHomepage
In diesem Forum bekomme nur selten eine Mailbenachrichtigung, weitere Antworten sind zufällig.
AW: Kopierte Tabellenblätter ein/ausblenden
26.11.2021 16:04:13
Manfred
Hallo Hajo, danke für die schnelle Antwort.
Ich möchte dies aber gerne in Gruppen zusammenführten wie folgt:
Muster, Muster (2), Muster (3), Muster (4)..... sollten dann gemeinsam aus- und eingeblendet werden, die Anzahlt der Kopien schwankt von 1-5 Tabellenblätter,
Das selbe ist dann wieder für eine weitere Gruppe z.B. Test, Test (2), Test (3), Test (4)....

Worksheets("Muster").Visible = True
Worksheets("Muster (2)").Visible = True
Worksheets("Muster (3)").Visible = True
Worksheets("Muster (4)").Visible = True
funktioniert nur wenn die Tabelle auch vorhanden ist, sonst kommt debuggen. Mein Problem ist die unbekannte Anzahl an Kopien. LG Manfred
Anzeige
AW: Kopierte Tabellenblätter ein/ausblenden
26.11.2021 16:36:15
{Boris}
Hi,
Du kannst mit einer Schleife über alle Blätter prüfen, ob der Name mit "Muster" beginnt - und je nach Ergebnis handeln.
So in der Art:

Sub test()
Dim wS As Worksheet
For Each wS In ThisWorkbook.Worksheets
If LCase(wS.Name) Like "muster*" Then
wS.Visible = Not wS.Visible
End If
Next wS
End Sub
VG, Boris
AW: Kopierte Tabellenblätter ein/ausblenden
26.11.2021 17:13:45
Manfred
Vielen lieben Dank Boris für deine Unterstützung, ist genau das was ich gesucht habe und hat mir als Laie sehr viel Zeit erspart. LG Manfred
AW: Kopierte Tabellenblätter ein/ausblenden
26.11.2021 18:43:39
Manfred
Hallo Boris, nun muss ich nochmals auf dich zukommen.
Der Code funktioniert zwar super für den Tabellennamen "unf" aber nicht für "HH". Ich bin fast am verzweifeln, hast du vielleicht dazu eine Lösung?
Dieser Code funktioniert einwandfrei

Sub Blatt_Risikoanalyse_Unf_einblenden_Kurz()
'blendet alle Tabellenblätter mit den Anfangsbuchstaben "unf" EIN
Application.ScreenUpdating = False
Dim wS As Worksheet
For Each wS In ThisWorkbook.Worksheets
If LCase(wS.Name) Like "unf*" Then
wS.Visible = True
End If
Next wS
Worksheets("Unf").Activate
End Sub
Dieser Code funktioniert nicht (Tabellenname HH)

Sub Blatt_Risikoanalyse_HH_einblenden_Kurz()
'blendet alle Tabellenblätter mit den Anfangsbuchstaben "HH" EIN
Application.ScreenUpdating = False
Dim wS As Worksheet
For Each wS In ThisWorkbook.Worksheets
If LCase(wS.Name) Like "HH*" Then
wS.Visible = True
End If
Next wS
Worksheets("HH").Activate
End Sub

Anzeige
LCase...
26.11.2021 21:01:19
{Boris}
Hi,
...wandelt Texte in kleinbuchstaben um. Also wird aus "Haus" dann "haus" und "SPD" wird zu "spd" etc.
Demnach musst Du nicht mit "HH" vergleichen sondern Like "hh*"
VG, Boris
AW: LCase...
27.11.2021 13:55:21
Manfred
Besten Dank Boris, genau das war das Problem. LG Manfred

168 Forumthreads zu ähnlichen Themen

Exceltabelle in Word
S.H.

Hallo,
evtl. bin ich auch im falschen Forum, aber trotzdem meine Frage:
Ich habe ein Excel Arbeitsblatt unter word eingefügt und möchte dort weitere Zeilen einfügen. Das funktioniert auch soweit, am Ende der Word Seite ist allerdings Schluss. Ich schaffe es nicht, das die Tabelle einen...
20.10.2008 20:22:26
Thread-ID: 1017796
3 Beiträge
Anzeige
Excel Tabelle über 2 Seiten in Word
Ralf

Hallo,
ich möchte eine Excel Tabelle in Word einfügen. Das Problem ist, dass die Tabelle sehr lang ist und über 2 Seiten in Word gehen würde. Sie soll auch automatisch aktualisiert werden, wenn die Originaltabelle in Excel verändert wird.
Gibt es da eine Möglichkeit?
Vielen Dank!
16.04.2009 22:29:58
Thread-ID: 1069191
3 Beiträge
Zwei Excel-Tabellen in WinWord verknüpfen
Andreas

Hallo zusammen,
ich habe eine Word-Datei, in der sich an zwei verschiedenen Stellen zwei eingefügte Excel-Dateien befinden. Diese wurde vor langer Zeit mal aus Excel kopiert. Das Original in Excel existiert nicht mehr.
Jetzt möchte ich das Ergebnis einer Berechnung aus der ersten Tabell...
04.08.2009 13:53:46
Thread-ID: 1093412
2 Beiträge
Anzeige
aus Word mit Makro in Excel Tabellenblatt wechseln
Joni

Hi,
ich habe das Problem, dass ich aus einem Worddokument eine Exceltabelle, die bereits geöffnet ist, aktivieren möchte und dann da aus 2 Tabellenblättern Werte auslesen. Ich komm da einfach nicht weiter.
Excel als Object habe ich definiert. Beim Workbook und Sheet klappt das nicht meh...
31.10.2009 00:38:15
Thread-ID: 1113446
3 Beiträge
bestimmte Tabellen ein- resp. ausblenden SWITCH
Peter

Guten Abend
In einer grösseren Datei habe ich einige Tabellen, deren Namen einer der Strings "_FA", "_FV" oder "_FF" enthält.
Nun möchte ich ein Makro, mit dem ich diese Tabellen identifiziere und die einzelnen Tabellen einblende, wenn sie ausgeblendet sind, resp. umgekehrt.
Fragen:...
19.11.2009 17:36:31
Thread-ID: 1118717
19 Beiträge
In Tabelle Zellfarbe abfragen - Spalte ausblenden
Gegga

So und weitergehts :)
Ich baue gerae iene etwas aufwendigere Tabelle, wo ich mit mehreren Hilfsspalten arbeiten muss die ausgeblendet werden.
Ich habe einen Com.Button eingefügt mit folgendem Code:
Columns("BJ:BK").Select
Selection.EntireColumn.Hidden = True
Funzt, klar. Da...
21.12.2009 09:56:44
Thread-ID: 1125270
9 Beiträge
Tabellenblatt per Makro ein-/ ausblenden
Bibabutzel

Hallo Ecxel-Gemeinde,
ich mache gerade meine ersten eigenen Gehversuche in Sachen VBA und benötige mal bitte Eure Hilfe. Das Problem ist (für die, die es können) wahrscheinlich ein relativ einfaches:
Im Bereich A20:A59 stehen Namen und zu jedem dieser Namen gibt es ein Tabellenblatt (da...
17.01.2010 00:16:55
Thread-ID: 1130538
10 Beiträge
Tabellenblätter aus ListBox ein- und ausblenden
Dirk

Hallo,
Ich habe eine Userform mit einer Listbox in der alle eingeblendeten Tabellenblätter und eine Listbox in der alle ausgeblendeten Tabellenblätter enthalten sind. Nun möchte ich per Mausklick auf ein Tabellenblattname in einer der Listboxen das entsprechende Blatt ein- bzw. ausblenden.
17.04.2002 10:18:26
Thread-ID: 113989
3 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
2
7
2
1
1
2
18
8
9
2
5
2
3
1
1
2
1
1
1
1
5
3
7
1
2