Hallo Luc,
Je doet niets verkeerd !
Ik had het in mijn voorgaande post over "de simpelste oplossing" ('k had weer zo weinig tijd...)
Als dat blijkbaar soms nog tegenpruttelt zetten we maar iets zwaarder geschut in.
Als je de code bij CommandButton1_Click() vervangt door deze moet het altijd goed gaan (het zal dan ook geen verschil meer maken of je 8.95 of 8,95 invult). En de kans dat het op blad "Verrichtingen" fout gaat is ook meteen weg.
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
k = Range(Range("c14"), Selection).Columns.Count
For i = 1 To 40
If Me("textbox" & i) <> "" Then
x = Me("Label" & i).Caption
Set y = Range("b15:b50").Find(x, lookat:=xlWhole)
bedrag = CDbl(WorksheetFunction.Substitute(Me("textbox" & i).Value, ".", ","))
If Not y Is Nothing Then
y.Offset(, k) = y.Offset(, k).Value + bedrag
Else
With Range("b100").End(xlUp)
.Offset(1) = Me("label" & i).Caption
.Offset(1, k) = bedrag
End With
End If
With Sheets("verrichtingen").Range("a1").End(xlDown)
Sheets("verrichtingen").Unprotect
.Offset(1) = Format(Now(), "mm-dd-yy")
.Offset(1, 1) = Me("label" & i).Caption
.Offset(1, 2) = bedrag
.Offset(1, 3) = boodschapper.Value
Sheets("verrichtingen").Protect
End With
End If
Next i
Range("b14").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Unload Me
End Sub
Groeten,
pitufo