Inputbox met euro waarde

Status
Niet open voor verdere reacties.
1

1965Peter

Gebruiker
Lid geworden
20 jun 2016
Berichten
197
Hallo,

Als ik de inputbox gebruik, gaat mijn financiele opmaak naar getal.
Wat zou ik hieraan moeten toevoegen om een eurowaarde erin te krijgen/
Code: 
Sub Eigen_Risco()

 If Range("B7").Value = "0" Then
    Dim Inname As String
    Inname = InputBox("Eigen Risico", "Vul in", "750,00")
    Range("B7").Value = Inname
  
    End If
End Sub
 
Zo:
Code: 
Sub Eigen_Risco()
  With Range("B7")
    If .Value = "0" Then
       .Value = CLng(InputBox("Eigen Risico", "Vul in", "750,00"))
       .NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
    End If
  End With
End Sub

Wat je in een Inputbox invult is altijd tekst.
Dat moet je nu dus converteren naar een getal.
Die .NumberFormat kan weg als je cel al de juiste opmaak heeft.
 
Laatst bewerkt:
Variabele overbodig

Code: 
Sub Eigen_Risco()
 If [B7] = "0" Then [b7]= formatcurrency(InputBox("Eigen Risico", "Vul in", "750,00"))
End Sub
 
celopmaak was een financiele opmaak, maar de input veranderde dit, maar met jouw code zit ik altijd goed!
 
Snb ook die van jou werkt, ook bedankt. Even kijken welke ik ga gebruiken :)
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan