Office: Tabellenblätter markieren

Geschätzte Profis,

ich würde gerne mehrere Tabellenblätter per VBA markieren.
Da es sich um ca. 500 Stück handelt, will ich nicht alle Tabellenblatt-Namen aufschreiben. (An sich soll es die gleiche Funktion sein, als würde ich die Tabellenblätter mit der Maus + Shift markieren.)

Ich hatte mir sowas in der Art gedacht:

For i = 7 To Sheets.Count - 1
Sheets(i).Select
Next i

Leider kann ich dem Excel aber nicht sagen, dass er die Blätter nicht einzeln markiern soll.

Wie schaffe ich das?

Grüße

:)

 

Moin!
Die Frage ist ja, was Du vorhast, eine Markierung ist eigentlich nie notwendig.
Normalerweise läuft man die Sheets in einer For each ... Next Schleife durch.
Auszuschließende Sheets dann per Select Case Sheet.Name

Gib mal ein paar Infos.

Gruß Ralf

 

Moinsen,

erst mal danke für die schnelle Antwort
Also es ist so, dass diese Tabellenblätter alle das selbe Design haben. Aber natürlich verschiedene Inhalte :-)
wenn man jetzt an dem Design was ändern will, wird das meist manuell gemacht. z.B. eine neue Zeile einfügen, Überschrift ändern, o.ä.

Das soll auch weiter so bleiben, da eine Änderung über VBA nicht für jeden leicht umzusetzen... drum die Hilfe (fast) alle Blätter zu markieren und weiter manuell arbeiten

Grüße

 

Hi,

so vielleicht:

Code:

 

Klasse, jetzt werden zumindest schon mal alle Blätter markiert.
genau so habe ich mir das vorgestellt.
habe den Code zwar noch nicht verstanden, aber das wird schon...
jetzt muss ich nur noch die Anzahl einschränken.
Durch welche Variablen wird denn der Anfang, bzw. das Ende festgelegt?
Bzw. was muss ich denn beachten wenn ich das ändere?

Danke schon mal für den ersten großen Teil :-)

 

Moinsen!
Anderer Ansatz als Karin, dafür aber mit Ausschluss:

Gruß Ralf

 

hm... das funktioniert jetzt auf die Schnelle leider nicht...
Außerhalb des gültigen Bereichs!?

 

Hi!
Dies:
Case "Tabelle1", "Tabelle3"
Musst Du natürlich auf Deine Tabellennamen anpassen, die NICHT ausgewählt werden sollen.
Case "Übersicht", "MeinSpeziellesBlatt"

Der .Name ist der, der auf dem "Tabellenreiter" steht.
Mein Makro ist getestet und funktioniert.

Gruß Ralf

 

Liegen die zu selektierenden Tabellen alle hintereinander oder sind auch dazwischen welche, die nicht selektiert werden sollen? Im letzteren Fall:

Code:

 

Findest Du nicht, Karin …
… dass mein Ansatz dem Wunsch des TE erheblich näher kommt?

Fragt sich

Ralf

 

Phu... also ich versuch es nochmal auszudrücken :-)
und zuvor nochmal danke für die Mühen!!!

also ab dem ca. 7 Tabellenblatt bis zum 10. von hinten sollen alle markiert werden.

die Fallabfrage hätte ich davor gemacht. Mit einer Nummer als Ergebnis, ab dem wievielten Tabellenblatt markiert werden soll.

@Ralf: k.a. was ich dann da Falsch gemacht habe... die Tabellennamen habe ich natürlich ersetzt :-)

Man kann es nicht ojt genug sagen.. Merci

 

Na dann (weil keine "Lücken" vorhanden):
Code:

 

Hm.. also den Code wenn ich mir anschau, würde genau dem entsprechen...Aber bei kommt da der Fehler Laufzeitfehler 9
außerhalb des Bereichs
bie sheets(arrTab).Select
soweit ich das überblicke ist arrTab leer!?
Tabellen sind aber die Richtigen ausgewählt?!
woran könnte as liegen?

 

Deshalb war ja meine Frage, ob die Tabellenblätter fortlaufend liegen oder es dazwischen welche gibt, die nicht mit selektiert werden sollen.

Code:

 

Ich weiß wirklich nicht, was Du da anstellst.
Meine Codes sind getestet und funktionieren einwandfrei:
Lokalfenster sagt (für meine Übungsdatei mit 7 Tabellen und i = 3 to .count -2)