Button bij activeren andere kleur geven

[nino500]

Hallo allemaal ,

ik heb een vraagje hoe je de kleur van een macro button bij het uitvoeren (drukken) hiervan
kan veranderen en gelijktijdig ook de kleur van een andere botton kan aanpassen.

vb: 2 buttons --> nr 1 = start , nr 2 = stop

als button 1 (start) gedrukt wordt moet deze groen worden en button 2 grijs
als button 2 (stop) gedrukt wordt moet deze rood worden en button 1 grijs

alvast bedankt,

nino

 

[gast0667]

Zoiets:

Private Sub btnStart_Click()
btnStart.BackColor = &HFF00&
btnStop.BackColor = &H8000000F
End Sub

Private Sub btnStop_Click()
btnStart.BackColor = &H8000000F
btnStop.BackColor = &HFF&
End Sub

 

[nino500]

hoe dat te gebruiken ???

Hallo gast0667,

bedankt voor je snelle reactie.....

ik weet alleen niet hoe ik dat in de button moet verwerken...

de macro voor de "start" button ziet er zo uit:

Private Sub CommandButton2_Click()
Range("y1").Select
ActiveCell.FormulaR1C1 = "=0"
Range("F11").Select

End Sub


Hoe moet ik nu jouw macro daarin verwerken ???
ben nog maar een beginneling......


groet,

nino

 

[gast0667]

Private Sub CommandButton2_Click()
Range("y1").Select
ActiveCell.FormulaR1C1 = "=0"
Range("F11").Select

btnStart.BackColor = &HFF00&
btnStop.BackColor = &H8000000F

End Sub

Maakt niet uit waar je het plaatst in je VBA-code.
VBA werkt op volgorde, dus van boven naar beneden. Wil je dus bijvoorbeeld dat hij eerst de andere handelingen uitvoert en dan pas de kleur veranderd dan zet je mijn code onderaan. Andersom bovenaan. Hetzelfde voor je 'Stop'-code

 

[nino500]

wat doe ik verkeerd ??

hallo gast0667,

bedankt nog eens...... maaaar.... hij doet niet niet wat ik wil....
heb het zo gedaan als jij zij, maar krijg steeds een error .."Object required".
Wat doe ik verkeerd..... ?????.
heeft het misschien met de naam van de button te maken of zo ????
misschien in de properties iets niet goed staan ??????

please help me once again.........


groet,

nino

 

[gast0667]

Ja, sorry, zie het. Heeft inderdaad met de naam van de buttons te maken.

Ga ervan uit dat de namen van je knoppen als volgt zijn:
Start-button ==> CommandButton2
Stop-button ==> CommandButton1

Private Sub CommandButton2_Click()       
Range("y1").Select
ActiveCell.FormulaR1C1 = "=0"
Range("F11").Select

[B]CommandButton2[/B].BackColor = &HFF00&
[B]CommandButton1[/B].BackColor = &H8000000F

End Sub

Het VET gedeelte even aanpassen naar de juiste namen.

 

[nino500]

het werkt.......

Hallo gast0667,

het werkt nu uitstekend......

hartelijk dank voor de moeite.... je bent de beste...

Groet,

nino