VBA voeg waarde toe aan cel

[Floor E]

Ik ben een soort calculator aan het maken waarbij ik afhankelijk van de geselecteerde cel in een aantal andere cellen de waarde uit txt velden wil laten invullen.

E.e.a. functioneert al aardig maar ik wil de waarde uit het geopende formulier toevoegen aan cellen in de rij waarin ik nu sta.

Actieve rij is myrow
Probleem is dat ik het niet voor elkaar krijg om de waarde uit het txt veld toetevoegen aan Kolom G van myrow.

Dim doel As String
Dim btwBedr As Double
myrow = ActiveCell.Row      'Huidige rij
mycol = ActiveCell.Column   'Huidge Kolom

'check of we met inkoop of verkoop te maken hebbben.
'Dit wordt gedaan door de check of huidige kolom < 68 (verkoop) OF > 68 is

Select Case mycol
    Case Is < 8, 67, 68, 69
        MsgBox "Ongeldige cel", vbCritical, " BTW berekenaar"
        
    Case Is > 68
        MsgBox "Dit is Inkoop" 'Even om te testen
        
     Case Is < 67
        btwBedr = TxtBTWNormBer
        doel = "7," & myrow
        Range(doel).Value = btwBedr
        MsgBox "Dit is Verkoop" & "Getest BTW bedrag = " & btwBedr
End Select

 

[leofact]

Mogelijk werkt dit:

doel = "7," & myrow
Range(doel).Value = btwBedr

vervangen door
cells(myrow, 7).value=btwBedr

en mycol en myrow dimmen, in dit geval b.v als integer.

 

[Cobbe]

Doel werd verkeerd bepaald:

Dim doel As String
Dim btwBedr As Double
myrow = ActiveCell.Row      'Huidige rij
mycol = ActiveCell.Column   'Huidge Kolom

'check of we met inkoop of verkoop te maken hebbben.
'Dit wordt gedaan door de check of huidige kolom < 68 (verkoop) OF > 68 is

Select Case mycol
    Case Is < 8, 67, 68, 69
        MsgBox "Ongeldige cel", vbCritical, " BTW berekenaar"
        
    Case Is > 68
        MsgBox "Dit is Inkoop" 'Even om te testen
        
     Case Is < 67
        btwBedr = TxtBTWNormBer
        [COLOR="Red"]doel = myrow & ",7"
        Cells(doel).Value = btwBedr[/COLOR]        
        MsgBox "Dit is Verkoop" & "Getest BTW bedrag = " & btwBedr
End Select

Succes, Cobbe

 

[leofact]

btwBedr = TxtBTWNormBer

werkt w.s wel, maar tekst wordt omgezet naar een getal.
Het is netter om te converteren met

btwBedr = CDbl(TxtBTWNormBer)

 

[Floor E]

Super, bedankt! Het werkt.
Ik ben redelijk bekend met VBA maar niet met Excel VBA. Is erg leerzaam. Ik kan nu volop aan de slag :thumb: