fout: object vereist

[tinie]

hallo allemaal,

ik krijg een fout van object vereist bij deze lijn:

Worksheets("Blad1").Activate

Cells(4, 11) = textbd.Value / textbDD.Value * Cells(33, 5) + (1 - textbd.Value / textbDD.Value) * Cells(16, 5)

textbd en textbDD zijn waarden die ik via een formulier ophaal en cells(33,5) en cells(16,5)
zijn waarden die ik via een excelblad ophaal

Ik zie eerlijk gezegd niks echt fout in, hopelijk jullie wel

Dank u wel

 

[Wigi]

Als het textboxen zijn, moet je de eigenschap .Text gebruiken, niet .Value

Wigi

 

[tinie]

np wigi dit werkt ook niet als ik met .Text werk

 

[Wigi]

Hang dan een voorbeeldbestandje bij hier.

 

[tinie]

ok, hier is mijn voorbeeldbestandje

 

[Wigi]

- Jouw controls op de userform hebben een andere naam als in de code

- Je moet verwijzen naar de userform als je een control gebruikt. Met Me werken is wel toegestaan. Zie in de code.

Private Sub cmdvolg_Click()
    
    With Sheets("Blad1")
    
        .Cells(2, 2).Value = (Me.txtbd.Value / Me.txtbDD.Value * .Cells(1, 1).Value) + _
            (1 - Me.txtbd.Value / Me.txtbDD.Value) * .Cells(2, 1).Value
    
    End With
    
End Sub

Wigi

 

[tinie]

idd, hoe stom kon ik zijn. Kheb er constant zitten overkijken.

toch bedankt voor uw oplossing