Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1076to1080
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
Inhaltsverzeichnis

Ermitteln, welche Tabellenblätter markiert sind

Ermitteln, welche Tabellenblätter markiert sind
08.06.2009 14:38:08
Rolli
Hallo Zusammen,
ich hab da ein kleines Problem und zwar möchte ich folgendes realisieren.
Ich möchte mittels STRG-Taste mehrere Tabellenblätter auswählen und dann
per VBA den Blattschutz setzen oder aber aufheben.
Vom Prinzip her hab ich mir das so gedacht
Im Makro die Namen oder Indexe der ausgewählten Blätter ermitteln
und dann Blatt für Blatt schützen oder aber auch nicht.
Jetzt müsste ich aber wissen, wie man an die Namen oder Indexe der ausgwählten
Tabellenblätter kommt. Ich komm nicht drauf, auch Google weiss keine Antwort und
der Makrorecorder schreibt die Tabellennamen rein.
Jetzt seid Ihr meine letzte Hoffnung.
Danke schonmal und schöne Grüsse
Rolli

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ermitteln, welche Tabellenblätter markiert sind
08.06.2009 14:44:40
bernd
hi,
gib doch z.B. oberhalb von Archich sheets+index ein,
da kommen zig beispiele
gruß
robert
AW: Ermitteln, welche Tabellenblätter markiert sind
08.06.2009 15:14:54
Rolli
HAllo Bernd,
Danke für die schnelle Antwort.
Ich hab deinen Rat befolgt, bekomm aber nicht die nötigen Informationen.
Vielleicht hab ich mich etwas falsch ausgedrückt. Ich möchte meine Idee mal als VBA Code formulieren.

Sub Test()
Dim oWsh As Worksheet
For Each oWsh In ThisWorkbook. AUSGEWAEHLTETABELLEN (gibts so natürlich nicht)
oWsh.Protect .....
Next oWsh
'Alternativ könnte ich mir das auch so vorstellen
For Each oWsh In ThisWorkbook.Sheets
If oWsh.SELECTED=True Then oWsh.Protect .....    (SELECTED gibst so ja auch nicht)
Next oWsh
End Sub


Danke nochmals
Gruß
Rolli

Anzeige
AW: Ermitteln, welche Tabellenblätter markiert sind
08.06.2009 15:08:12
Chris
Servus,
so:

Sub AusgewählteBlätter()
Dim sh As Worksheet
For Each sh In ActiveWindow.SelectedSheets
MsgBox sh.Name
Next sh
End Sub


Gruß
Chris

AW: Ermitteln, welche Tabellenblätter markiert sind
08.06.2009 15:17:22
Rolli
Hallo Chris,
Suuuuper Danke, dass ich das SelectedSheets bei ActiveWindow finden kann hätt ich nicht gedacht.
Danke nochmals
Gruß
Rolli
'Thema beantwortet

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige