Macro knop werkt niet?

Question

hallo experts,

ik heb een knop met een macro waarop een antwoord dient gegeven worden, maar maakt niet uit welk antwoord er gegeven word er blijft nee staan in de cel?

wat heb ik fout gedaan?

met vriendelijke groet,

Henk

Sub Wisselspeler()

Tekst = "Wilt u de spelers wisselen. Wilt u doorgaan?" 

Knoppen = vbYesNo + vbDefaultButton2 + vbQuestion 

Antwoord = MsgBox(Tekst, Knoppen) 

If Antwoord = vbYes Then Range("R2").Select 

ActiveCell.FormulaR1C1 = "Ja" 

If Antwoord = vbNo Then Range("R2").Select 

ActiveCell.FormulaR1C1 = "Nee" 

End Sub

Answer 1

Graag gedaan, Henk. Mocht je nog meer hulp nodig hebben, aarzel dan niet om het hier in dit forum te posten. Wij, de gebruikers van de community, zijn er altijd om te helpen. Bedankt, en nog een fijne dag!

Deze reactie is automatisch vertaald. Hierdoor bevat het wellicht gramaticale fouten of vreemde zinnen.

Answer 2

Hallo alle,

bedankt voor het mee denken.

ik ga het uitproberen, kijk welke oplossing het makkelijkste werkt voor mij.

Answer 3

Henk,

• Om bewerkingen op cellen uit te voeren, is het niet nodig om die cellen eerst te selecteren.
• In R2 wil je een tekst (ja/nee) plaatsen, geen formule.
• Best om altijd het blad te vermelden waarin je de macro wil uitvoeren, anders kun je ongewenste resultaten krijgen. Ik ben ervan uitgegaan dat het Blad1 is, wijzig dat indien nodig.

Bovenstaande in acht genomen, kun je deze macro gebruiken:

Sub macro1() 

Dim Antwoord 

Antwoord = MsgBox("Wilt u doorgaan?", vbYesNo, "Doorgaan?") 

With Sheets("Blad1").Range("R2") 

If Antwoord = vbYes Then 

.Value = "Ja" 

Else 

.Value = "Nee" 

End If 

End With 

End Sub

Ook mogelijk:

Sub macro2() 

Dim antw 

antw = MsgBox("Wilt u doorgaan?", vbYesNo) 

Sheets("Blad1").Range("R2").Value = Application.Choose(antw - 5, "Ja", "Nee") 

End Sub

Answer 4

Of zonder ongewenste vertaling :)

Sub Wisselspeler()

Const Tekst As String = "Wilt u de spelers wisselen. Wilt u doorgaan?" 

Const Knoppen As Integer = vbYesNo + vbDefaultButton2 + vbQuestion 

Dim Antwoord  As VbMsgBoxResult 

Antwoord = MsgBox(Tekst, Knoppen) 

If Antwoord = vbYes Then 

    Range("R2").Select 

    ActiveCell.FormulaR1C1 = "Ja" 

ElseIf Antwoord = vbNo Then 

    Range("R2").Select 

    ActiveCell.FormulaR1C1 = "Nee" 

End If 

End Sub

Answer 5

Hoi Henk V,

Bedankt dat je contact met ons opneemt. Mijn naam is Leo, een gebruiker net als jij. Ik help je graag met je bezorgdheid.

Mag ik weten welke Microsoft Office-versie u momenteel gebruikt? Kunt u ook bevestigen of andere macro's zonder problemen werken? Kunt u specifiek verduidelijken wat u met de verstrekte macro wilt bereiken? Kunt u, indien mogelijk, ook een voorbeeld van de gegevens geven?

Ik heb ook een paar wijzigingen aangebracht in de macro die u hebt verstrekt. Ik hoop dat dit aan uw kant zal werken. Hier is de gewijzigde code:

Sub Substitute() Tekst dimmen als tekenreeks Dim knoppen als geheel getal Dim antwoord als VbMsgBoxResult

Text = "Wil je de spelers veranderen. Wil je doorgaan?" Knoppen = vbYesNee + vbDefaultButton2 + vbQuestion Antwoord = MsgBox(Tekst, Knoppen)

Als antwoord = vbJa dan Bereik ("R2"). Waarde = "Ja" ElseIf Antwoord = vbNee Dan Bereik ("R2"). Waarde = "Nee" Einde als Einde Sub

Mocht je nog meer hulp nodig hebben, aarzel dan niet om het ons te laten weten. Wij, de gebruikers van de community, zijn er altijd om te helpen. Bedankt!

Uw begrip en geduld worden zeer op prijs gesteld. Ik hoop dat ik nuttige informatie heb gegeven over uw bezorgdheid! Laat het me weten als je nog vragen hebt. Wees altijd veilig!

Hartelijke groeten

Leeuw

Deze reactie is automatisch vertaald. Hierdoor bevat het wellicht gramaticale fouten of vreemde zinnen.