VBA Type mismatch probléma (Run-time error '13')

VBA Type mismatch probléma (Run-time error '13')
2020-10-19T10:20:16+02:00
2020-10-20T12:22:35+02:00
2022-10-15T21:26:10+02:00
Wilson kapitány
Sziasztok!

Az alábbi kódomban egy exponenciális simítást szeretnék csinálni, az alfa értékét a Textbox1-be tudom megadni egy scrollbar segítségével.

Sajnos ennél a résznél a címben szereplő hibát adja, jelenleg ötletem sincs, hogy mi az oka. Kérek szépen egy kis segítséget, előre is köszönöm:

wsDest.Cells(i, 3) = Me.TextBox1 * wsDest.Cells(i - 1, 2) + (1 - Me.TextBox1) * wsDest.Cells(i - 1, 3) Option Explicit Private Sub CommandButton1_Click() Dim i As Integer Dim LastRow As Long Dim wsDest As Worksheet Set wsDest = Workbooks("Exponenciális simítás UserForm.xlsm").Worksheets("adatok") LastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Row wsDest.Cells(3, 3) = wsDest.Cells(2, 2) For i = 4 To LastRow + 1 wsDest.Cells(i, 3) = Me.TextBox1 * wsDest.Cells(i - 1, 2) + (1 - Me.TextBox1) * wsDest.Cells(i - 1, 3) Next i End Sub Private Sub CommandButton2_Click() Dim LastRow As Long Dim wsDest As Worksheet Set wsDest = Workbooks("Exponenciális simítás UserForm.xlsm").Worksheets("adatok") LastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Row Me.TextBox2 = wsDest.Cells(LastRow + 1, 3) * wsDest.Cells(LastRow, 4) - wsDest.Cells(LastRow, 2) * wsDest.Cells(LastRow, 4) Me.TextBox2.Text = Format(TextBox2.Text, "# ### ###") End Sub Private Sub ScrollBar1_Change() Me.TextBox1 = Me.ScrollBar1.Value / 100 End Sub
Mutasd a teljes hozzászólást!
Szia!
Szerintem az lehet a gond, hogy a Textbox1 értéke az szöveg. Tehát számolás előtt át kell alakítani számmá. 
Használhatod a CInt, CLng, CDbl, CSgn függvényeket erre, attól függően, hogy egész vagy törtszámok szerepelnek a Textbox1-ben.
Üdv.
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd