F2 activeren vanuit VBA

Status
Niet open voor verdere reacties.

Jos the Boss

Gebruiker
Lid geworden
28 jul 2010
Berichten
57
Ik heb een flink Userform met allerlei mogelijkheden. Op meerdere plekken kan in een Textbox een bedrag worden ingevoerd. Met gebruik van format en Currency is de weergave ook prima maar dit is alleen maar weergave van een string die op een bedrag lijkt. Dit is logisch want Textbox is ook voor behandelingen van tekst. Ik wil deze bedragen echter ook wegschrijven in diverse cellen. De cellen hebben een opmaak om de € te laten zien.
Als ik dit echter wegschrijf dan staat alleen het getal in de cel zonder de € weergave. Als ik echter één keer op F2 klik dan komt de juiste weergave en kan er ook mee gerekend worden.
Ik zou graag willen weten of er een mogelijkheid is om de F2 actie door VBA te laten doen. Of is er een andere optie beschikbaar.

In het voorbeeld heb ik geprobeerd om te laten zien wat ik bedoel.

Alvast bedankt voor je reactie
 

Bijlagen

  • F2 vraag.xlsm
    28,9 KB · Weergaven: 12
Laatst bewerkt:
Hier werkt het in je eigen document direct.
Dus zonder gebruik van F2.
 
Ik zie dat wanneer je een komma in het getal gebruikt het mis gaat.
Dan is het geen getal meer maar tekst.

Maak er eens dit van:
Code:
Private Sub TextBox1_AfterUpdate()
    Range("B2").Value = Replace(TextBox1.Value, ",", ".")
    Range("B3").Value = Replace(TextBox1.Value, ",", ".")
End Sub
 
Ik zie dat wanneer je een komma in het getal gebruikt het mis gaat.
Dan is het geen getal meer maar tekst.

Maak er eens dit van:
Code:
Private Sub TextBox1_AfterUpdate()
    Range("B2").Value = Replace(TextBox1.Value, ",", ".")
    Range("B3").Value = Replace(TextBox1.Value, ",", ".")
End Sub

Dit is inderdaad de oplossing. Bedankt voor je snelle reactie.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan