tekst veranderen bij klik op knop

[softwareboy]

Dit is wat ik momenteel heb:

Sub Knop1_Klikken()
'
' Knop1_Klikken Macro
'

'

Rows("6:35").Select
If Selection.EntireRow.Hidden = False Then
Selection.EntireRow.Hidden = True
Else
Selection.EntireRow.Hidden = False
End If
Range("A2").Select
End Sub

maar er moeten nog bij komen als het eerste klopt dan moet de tekst veranderen naar + en als het niet klopt moet het - zijn. Weet er iemand hoe ik dit moet doen? :s

waarschijnlijk handig om te weten ik werk met excel 2010

 

[Cobbe]

Wat moet waar zijn en waar moet de tekst(+of-) komen?

Cobbe

 

[softwareboy]

wel als ik nu wil klikken zijn de rijen allemaal zichtbaar. Met dat stuk code gaat bij een klik 5:36 weg verborgen word. met andere woorden de knop waarop ik moet klikken is nu - dus dit wil zeggen als je de rijen wilt wegdoen en als ik klik zijn de rijen weg en moet de tekst van de knop + worden want de tekst moet terug vermeerdert worden.

 

[Cobbe]

Dat kan met deze code:

Private Sub CommandButton1_Click()
With Rows("6:35")
    If .EntireRow.Hidden = False Then
        .EntireRow.Hidden = True
        CommandButton1.Caption = "+"
Else
        .EntireRow.Hidden = False
        CommandButton1.Caption = "-"
End If
End With
End Sub

Dit lukt enkel met een button uit de besturingselementen.

Zie voorbeeld.

Cobbe

 

[softwareboy]

héél erg bedankt

 

[softwareboy]

ik heb dankzij jou m'n fout gevonden ik gebruikte een normale knop ipv een opdrachtknop

 

[softwareboy]

ok nu heb ik weer probleem
nu zou ik graag rijen 2 en 4 samen met 6 en 35 verbergen

 

[softwareboy]

kheb het opgelost misschien een beetje rare op lossing maar ik doe gewoon nog eens hetzelfde met andere kolommen:

Private Sub CommandButton2_Click()
With Rows("6:35")
If .EntireRow.Hidden = False Then
.EntireRow.Hidden = True
CommandButton1.Caption = "++"
Else
.EntireRow.Hidden = False
CommandButton1.Caption = "--"
End If
End With
With Rows("2:4")
If .EntireRow.Hidden = False Then
.EntireRow.Hidden = True
Else
.EntireRow.Hidden = False
End If
End With
End Sub

 

[cow18]

iets compacter geschreven

Private Sub CommandButton2_Click()
  Dim b        As Boolean
  With Sheets("blad1")
    b = Not (.Rows(2).Hidden)                              'complementaire van rij 2 verborgen, dus als verborgen= false, niet verborgen=true
    .Range("2:4,6:35").EntireRow.Hidden = b                'toepassen op die rijen, dus als verborgen, dan nu tonen en omgekeerd
    .CommandButton1.Caption = IIf(b, "++", "--")           'hetzelfde toepassen op knop
  End With
End Sub

 

[softwareboy]

dit lijkt me ok maar hij geeft wel een error bij:

With Sheets("blad1")

ook als ik het naar blad 2 verander waarop de knoppen staan
er staat:
Fout 9 tijdens uitvoering:

Het subscript valt buiten het bereik

 

[softwareboy]

en mijn manier is niet zo makkelijk want als er 1 openstaat dan gaat ie dicht en de ander dicht.

 

[softwareboy]

sorry te probleem is al opgelost ik was zo dom om die bladen te gebruiken ipv de echte namen dak had getypt. Ik dacht dat blad1, blad2, ... nog werkten omdat ze zo stonden in excel VBA

 

[softwareboy]

iedereen bedankt die me hielp met m'n probleem tis opgelost m'n blad is in orde
dank u