Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Tabellenblatt ausschließen

38 views
Skip to first unread message

Ralf Fuhrmann

unread,
Mar 19, 2005, 4:47:04 AM3/19/05
to
Guten Morgen,

habe eine Suchanweisung über alle Tabellenblätter in einem Makro, möchte
jetzt allerdings das letzte Tabellenblatt von dieser Suche ausschließen.

Ich weiß nicht wie????

Gruß
Ralf Fuhrmann


Melanie Breden

unread,
Mar 19, 2005, 5:59:44 AM3/19/05
to
Hallo Ralf,

Am Sat, 19 Mar 2005 10:47:04 +0100 schrieb Ralf Fuhrmann:

> Guten Morgen,
>
> habe eine Suchanweisung �lle Tabellenbl㳴er in einem Makro, m��e
> jetzt allerdings das letzte Tabellenblatt von dieser Suche ausschlieޥn.
>
> Ich weiݠnicht wie????

durchlaufe die Worksheets-Auflistung mit einer
Zählvariablen bis zum vorletzten Sheet:

Dim intI as Integer

For intI = 1 to ThisWorkbook.Worksheets.Count -1
Debug.Print ThisWorkbook.Worksheets(intI).Name
Next intI


--
--
Mit freundlichen Grüßen

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)
#Excel-Auftragsprogrammierung#

Herbert Taferner

unread,
Mar 19, 2005, 5:57:49 AM3/19/05
to
Hallo Ralf,

poste dein Makro dann gehts leichter

mfg Herbert


Hajo at

unread,
Mar 19, 2005, 6:08:46 AM3/19/05
to
Hallo Ralf

Private Sub Aufheben()
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
If WsTabelle.Name <> Sheets(Worksheets.Count).Name Then
WsTabelle.Unprotect ("")
End If
Next WsTabelle
End Sub

Gruß Hajo
MVP für Microsoft Excel
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.
http://home.media-n.de/ziplies/


"Ralf Fuhrmann" <in...@sr-fuhrmann.de> schrieb im Newsbeitrag
news:%23WxiZiG...@TK2MSFTNGP15.phx.gbl...

Ralf Fuhrmann

unread,
Mar 19, 2005, 6:34:35 AM3/19/05
to
zunächst vielen Dank an alle,

werde eure Vorschläge ausprobieren.
Gruß Ralf


"Ralf Fuhrmann" <in...@sr-fuhrmann.de> schrieb im Newsbeitrag
news:%23WxiZiG...@TK2MSFTNGP15.phx.gbl...

0 new messages