Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
752to756
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
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Anzahl Tabellenblätter in Workbook

Anzahl Tabellenblätter in Workbook
12.04.2006 15:01:16
henning
Hallo zusammen!
Möchte alle Tabellenblätter meiner Arbeitsmappe durchzählen. Das Makro läuft iregndwie nicht vernünftig:

Sub PasswortFürAlleBlätterEinstellen()
Dim Tabz As Integer
Dim i As Integer
Tabz = ActiveWorkbook.Worksheets.Count
For i = 1 To Tabz
Sheets(i).Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True, Password:="xxxxx"
Next i
End Sub

Konkret gibt 'tabz' mir einen zu kleinen Wert an. Liegt das an den Einstellungen der zu zählenden Arbeitsbläter?
Vielen Dank
Henning

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzahl Tabellenblätter in Workbook
12.04.2006 15:09:17
Heiko
Hallo Henning,
ActiveWorkbook.Worksheets.Count zählt nur Datenblätter keine Diagrammblätter.
ActiveWorkbook.Sheets.Count zählt Datenblätter und Diagrammblätter.
Wenn du also Diagrammblätter mit drin hast zählt ActiveWorkbook.Worksheets.Count diese nicht mit, daran könnte die zu geringe Anzahl liegen.
Gruß Heiko
PS: Rückmeldung wäre nett !
AW: Anzahl Tabellenblätter in Workbook
12.04.2006 15:10:00
u_
Hallo,
du gehst einmal auf Sheets, das alle Blätter, auch Charts beinhaltet und einmal auf Worksheets, das diese nicht beinhaltet.

Sub PasswortFürAlleBlätterEinstellen()
Dim wks As Worksheet
For Each wks In Sheets
wks.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True, Password:="xxxxx"
Next wks
End Sub
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
Anzeige
AW: Anzahl Tabellenblätter in Workbook
12.04.2006 15:27:13
henning
Vielen Dank!
Jetzt läuft es! super!
Grüße Henning

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige