Office: Alle Blätter gruppieren außer bestimmte Blätter

Hias · 24. Juni 2017

Hallo zusammen,

mit meinem Makro gruppiere ich alle Tabellenblätter in meinem Sheet.

Code:

Sub Gruppieren()

For Each shBlatt In ActiveWorkbook.Sheets

Worksheets.Select

Next shBlatt

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mein Sheet hat ca. 300 Blätter. Es sollen aber nicht alle gruppiert werden.
Ca. 10 Stück sollten nicht gruppiert werden. Diese sind irgendwo angereiht und nicht nebeneinander.

Ist es möglich dass man erst die Schleife durchlaufen lässt und alle gruppiert und dann wieder bestimmte Blätter aus der Gruppierung rausnimmt?

Viele Grüße
Hias

:)

RPP63 · 25. Juni 2017

Moin!
Teste mal:

Sub RPP()
Dim wks As Worksheet, wSheets() As String, i&
For Each wks In ThisWorkbook.Worksheets
Select Case wks.Name
Case "Tabelle2", "Tabelle5" 'mache nüscht
Case Else
Redim Preserve wSheets(i)
wSheets(i) = wks.Name
i = i + 1
End Select
Next
Worksheets(wSheets).Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ralf

EarlFred · 25. Juni 2017

Hallo Hias,

Dein Code selektiert wahllos ALLE Blätter - und das sooft, wie die Schleife läuft. Das ist Unfug.

Ca. 10 Stück sollten nicht gruppiert werden. Diese sind irgendwo angereiht und nicht nebeneinander.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du selbst hast sicher genauere Kriterien, nach denen Du die "nicht gesollten" aussortierst? Z. B. der Name?

Code:

Option Explicit

Sub Gruppieren()

Dim shBlatt As Worksheet
Dim blnReplace As Boolean

'Verbotene Blätter
'Trenner ist "/" (für Blattnamen unzulässig)
Const cStrForbidden As String = "Tabelle2/Tabelle3/Tabelle7"

blnReplace = True

For Each shBlatt In ActiveWorkbook.Sheets
If InStr(cStrForbidden, shBlatt.Name) = 0 Then
Call shBlatt.Select(Replace:=blnReplace)
blnReplace = False
End If
Next shBlatt

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

Hias · 26. Juni 2017

Hallo EarlFred,

habe deinen Code getested, funktioniert einwandfrei.

Ich muss anscheinend noch etwas üben um zu so einer guten Lösung selbst zu finden..

Danke an Ralf und EarlFred

EarlFred · 26. Juni 2017

Ich muss anscheinend noch etwas üben um zu so einer guten Lösung selbst zu finden..
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn Du wirklich weiter kommen willst, schau Dir Ralfs Lösung an. Um Datenfelder wirst Du früher oder später nicht umhinkommen und da ist jede noch so kleine Übung recht, weil sich erfahrungsgemäß (fast) alle anfangs sehr schwer damit tun.

Office: Alle Blätter gruppieren außer bestimmte Blätter

Alle Blätter gruppieren außer bestimmte Blätter

Alle Blätter gruppieren außer bestimmte Blätter

Alle Blätter gruppieren außer bestimmte Blätter

Alle Blätter gruppieren außer bestimmte Blätter - Similar Threads - Blätter gruppieren bestimmte

Per Hyperlink ausgeblendetes Blatt einblenden

Wenn ein Wert ein einer Spalte, dann komplette Zeile im anderen Blatt untereinander einfügen.

Namen ausgeben mit größtem Wert auf einem anderen Blatt

Sortierfunktion

Blatt schützen aber Suche trotzdem ausführen

Wenn der Wert einer Zelle in einem anderem Blatt vorhanden ist, dann ....

Resultat aus Filter in zweiten Tabellen Blatt filtern