Microsoft Excel

Herbers Excel/VBA-Archiv

Auflisten aller Tabellenblätter

Betrifft: Auflisten aller Tabellenblätter von: stef26
Geschrieben am: 08.03.2016 08:59:35

Hallo Zusammen,
ich hab da mal eine Frage, bei der ich kurz eure Unterstützung bräuchte.

Ich lasse mir alle Tabellenblätter einer Arbeitsmappe auflisten.
Mit einer If Abfrage grenze ich die Tabellenblätter aus, die nicht mit aufgeführt werden sollen.
Nun möchte ich noch alle die Tabellenblätter nicht mit auflisten, die im Namen des Blattes ein "(" haben

For Each shWorksheet In ActiveWorkbook.Worksheets
'Tabellenblätter die nicht aufgeführt werden sollen
If shWorksheet.Name <> "Zusammenfassung" Then
If shWorksheet.Name <> "Vorlage" Then
If shWorksheet.Name <> "Info" Then
If shWorksheet.Name <> "Maßnahmen" Then

Wer könnte mir kurz zeigen, wie ich das lösen kann ?

Danke schon mal
Gruß
Stef26

  

Betrifft: AW: Auflisten aller Tabellenblätter von: JoWE
Geschrieben am: 08.03.2016 09:20:48

Hallo Stef26,

so vllt.:
if instr(1,shWorksheet.name,"(") >0 then


Gruß
Jochen


  

Betrifft: AW: Auflisten aller Tabellenblätter von: Daniel
Geschrieben am: 08.03.2016 09:22:42

Hi

If Instr(shWorksheet.Name, "(") = 0 Then
oder
if Not shWorksheet.Name like "*(*" Then
Gruß Daniel


  

Betrifft: AW: Auflisten aller Tabellenblätter von: stef26
Geschrieben am: 08.03.2016 15:44:58

Hi,
besten Dank !!!!


Stefan


 

Beiträge aus den Excel-Beispielen zum Thema "Auflisten aller Tabellenblätter"