textbox op formulier

[Doohan]

Geachte mede VBA gebruikers,

Een kleine vraag van een beginnend vba gebruiker.
Ik ben begonnen met het maken van een formulier met een textbox. In deze textbox word een getal gevraagd (dim getal as double) dit getal moet in een cel op een bepaalde sheet worden geplaatst.
Op een of andere manier vult hij het cijfer direct in op de cel. Ik wil dat hij dit doet na een bevestiging. als ik nu meerdere cijfers in wil vullen om een getal te maken moet ik iedere keer in de textbox klikken om een cijfer toe te voegen om het getal kompleet te maken.

Het is vast iets simpels maar ja. Maar voor iemand die net de beginners cursus heeft gedaan toch nog lastig.

Alvast dank voor de hulp die mij geboden gaat worden.

 

[OctaFish]

Zet vooral de code erbij (graag opmaken met de CODE knop voor de leesbaarheid), want zo kunnen we er uitaard maar weinig van zeggen.

 

[Doohan]

Ik zit nu op mijn werk. vanavond zal ik de code doorsturen alvast bedankt

 

[Doohan]

Beste OctaFish het gaat om de volgende code

Private Sub warmtafgifte_Change()

'warmtafgitfte

Worksheets("Ventilatielucht").Range("c10") = warmtafgifte.Value

End Sub

 

[OctaFish]

Als je niet wilt dat de data gelijk wordt weggeschreven, moet je zeker niet het Change event gebruiken, want dan werk je de cel zo'n beetje 'live' bij. Gebruik een Command button, of een gebeurtenis op een ander element.

 

[Doohan]

bedankt ik wist dat het zoiets was alleen dat ene duwtje was ff nodig. Ik ga weer rustig verder ploeteren.

 

[Doohan]

Het is gelukt om hem onder een commandbutton actief te krijgen maar de 2e textbox creert een compileer fout 'ongeldige kwalificatie' van quint

Private Sub CommandButton1_Click()
    
    Dim warmtafgift As Double
    Dim quint As Double
    
            Worksheets("Ventilatielucht").Range("c9") = quint.Value
            
            Worksheets("Ventilatielucht").Range("c10") = warmtafgifte.Value

End Sub

Naarmate mijn verstand vordert zullen de vragen minder worden

 

[Warme bakkertje]

Private Sub CommandButton1_Click()
    
    Worksheets("Ventilatielucht").Range("c9") = cdbl(quint.text)
            
    Worksheets("Ventilatielucht").Range("c10") = cdbl(warmtafgifte.text)

End Sub

 

[Doohan]

Bedankt het werkt. maar kun je me nog ff uitleggen waar CDbl voor zorgt. Dat vergroot mijn kennis. En zouden we dit lijntje kunnen sluiten

Alvast bedankt:thumb:

 

[Warme bakkertje]

Het antwoord ligt voor je klaar in de VBA-help.
Zoek maar eens op 'conversiefuncties'

 

[Doohan]

De help had ik al bekeken en niet begrepen. Ik dacht dat ik dmv.

DIM xxx AS Double.

Ik de variabele al double had gemaakt. Waarom dan toch noch Cdbl.

 

[Warme bakkertje]

Quint is mi echter geen variabele, maar de naam van je TB dus ....

 

[Doohan]

Een Textbox natuurlijk. thx ik heb nog een lange weg te gaan