Schaltfläche mit 2 Funktionen

Petra Arntzen

unread,

Aug 29, 2004, 5:32:24 AM8/29/04

to

Hallo NG,

ich versuche es noch einmal. :-)

Ich benötige eine Schaltfläche mit zwei Funktionen.
1. einen Bereich einblenden und
2. den Bereich wieder ausblenden.

Danke an euch....

Gruss Petra

Herbert Taferner

unread,

Aug 29, 2004, 6:00:05 AM8/29/04

to

Hallo Petra,

wenn du mit Bereich ganze Zeilen meinst dann so,

Private Sub CommandButton1_Click()
If Rows("2:4").Hidden = True Then
Rows("2:4").Hidden = False
Else
Rows("2:4").Hidden = True
End If
End Sub

mfg Herbert

Thomas Ramel

unread,

Aug 29, 2004, 6:02:53 AM8/29/04

to

Grüezi Petra

Petra Arntzen schrieb am 29.08.2004

> Ich benötige eine Schaltfläche mit zwei Funktionen.
> 1. einen Bereich einblenden und
> 2. den Bereich wieder ausblenden.

Weise die folgende Zeile einer Schaltfläche zu:

Rows("2:4").EntireRow.Hidden = _
IIf(Rows("2:4").EntireRow.Hidden, False, True)

--
Mit freundlichen Grüssen

Thomas Ramel
- MVP für Microsoft-Excel -

[Win XP Pro SP-1 / xl2000 SP-3]

Petra Arntzen

unread,

Aug 29, 2004, 6:05:31 AM8/29/04

to

Na toll,

Danke Thomas....Danke Herbert
Tschau

Eberhard Funke

unread,

Aug 29, 2004, 8:02:47 AM8/29/04

to

"Herbert Taferner" <t.he...@SPAMgmx.at> schrieb:

oder, wenn Du auch eine Checkbox als Schaltfläche akzeptierst:

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Rows("2:4").Hidden = True
Else
Rows("2:4").Hidden = False
End If
End Sub
--
Gruß Eberhard
XL 2000

Eberhard Funke

unread,

Aug 29, 2004, 9:49:13 AM8/29/04

to

Eberhard Funke <nos...@diabetes.info.de> schrieb:

[.....]

>oder, wenn Du auch eine Checkbox als Schaltfläche akzeptierst:
>
>Private Sub CheckBox1_Click()
>If CheckBox1 = True Then
> Rows("2:4").Hidden = True
>Else
> Rows("2:4").Hidden = False
>End If
>End Sub

oder weniger umständlich:

Private Sub CheckBox1_Click()
Rows("2:4").Hidden = CheckBox1.Value

Herbert Taferner

unread,

Aug 29, 2004, 10:02:38 AM8/29/04

to

Hallo Eberhard,

>
> [.....]
>>oder, wenn Du auch eine Checkbox als Schaltfläche akzeptierst:
>

> oder weniger umständlich:
>
> Private Sub CheckBox1_Click()
> Rows("2:4").Hidden = CheckBox1.Value
> End Sub
> --

ich akzeptiere es auch so,

aber Petra wollte ja unbedingt eine Schaltfläche,
( ich hatte ihr auch schon Gliederung angeboten
im vorherigen Thread )
ich weiß auch nicht warum es eine Schaltfläche
sein muß

mfg Herbert

Eberhard Funke

unread,

Aug 29, 2004, 2:19:16 PM8/29/04

to

Hallo Herbert,

"Herbert Taferner" <t.he...@SPAMgmx.at> schrieb:

>Hallo Eberhard,
>>
>> [.....]
>>>oder, wenn Du auch eine Checkbox als Schaltfläche akzeptierst:
>>

[.....]

>
>ich akzeptiere es auch so,
>
>aber Petra wollte ja unbedingt eine Schaltfläche,
>( ich hatte ihr auch schon Gliederung angeboten
>im vorherigen Thread )
>ich weiß auch nicht warum es eine Schaltfläche
>sein muß
>
>mfg Herbert
>

Den vorherigen Thread hatte ich nicht gelesen. Hier wie im Marketing:
richtig ist, was der Kunde will (obwohl Häckchen ein/aus bei der
Checkbox eine zusätzliche Info über den Zustand der Tabelle liefert)