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

Blatt ausblenden/einblenden

0 views
Skip to first unread message

Hardy

unread,
Oct 29, 2003, 5:22:53 PM10/29/03
to
Hallo zusammen,

ich suche folgende Problemlösung:
In einer Mappe sollen nur die Blätter eingeblendet werden
bei denen eine bestimmte Zelle (E1) einen Wert > 0 hat.
Dieser Wert ergibt sich aus einer Verknüpfung aus Blatt 1.

Vielen Dank

Herbert Taferner

unread,
Oct 29, 2003, 6:44:31 PM10/29/03
to
Hallo Hardy,

Ich nehme mal an das zumindest das erste Blatt
bleiben soll dann versuch's mal so,

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
Application.Volatile

Dim i As Byte

Set Sh = Worksheets

For i = 2 To Sh.Count
If Sh(i).Cells(1, 5).Value > 0 Then
Sh(i).Visible = True
Else
Sh(i).Visible = False
End If
Next

End Sub


mfg Herbert

"Hardy" <kgh...@t-online.de> schrieb im Newsbeitrag
news:04b701c39e6b$31c59ef0$a301...@phx.gbl...

Hardy

unread,
Oct 30, 2003, 7:19:59 AM10/30/03
to

Hallo Herbert,

recht herzlich Dank.
Dies hat hervorragend funktioniert.
Ich habe das ganze noch ergänzt und bekomme nun auch noch
den Namen des Blattes angepasst an den verknüpften
Feldinhalt.

Private Sub workbook_sheetchange(ByVal sh As Object,
ByVal target As Range)


Application.Volatile
Dim i As Byte

Set sh = Worksheets
For i = 2 To sh.Count
If sh(i).Cells(7, 14).Value > 0 Then 'Zelle N7
sh(i).Visible = True
sh(i).Name = sh(i).Cells(7, 14)
Else
sh(i).Visible = False


End If
Next
End Sub

Nochmals Dankeschön.

Herbert Taferner

unread,
Oct 30, 2003, 7:31:50 AM10/30/03
to
Hallo Hardy,

Bitte gern
freut mich wenn's hilft

mfg Herbert

>Hallo Herbert,

>recht herzlich Dank.
>Dies hat hervorragend funktioniert.
>Ich habe das ganze noch ergänzt und bekomme nun auch noch
>den Namen des Blattes angepasst an den verknüpften
>Feldinhalt.

>Nochmals Dankeschön.


0 new messages