Invoer textbox voor graden Celsius

[Bakkerken]

Collega Excel fanaten,

via een textbox vul ik cellen in een tabblad voor de gemeten temperatuur.

Dit via de code
ActiveCell.Offset(0, 1) = Temperatuur + ºC

In deze cel komt zo het getal dat via de textbox is ingevoerd, met hierna het teken °C

Echter doet hij dit niet wanneer er een getal met komma wordt genoteerd.
Bij ingave in textbox van 25 komt in cel 25°C
Bij ingave van 25,3 komt in cel 25,3
En dus zonder het °C teken.

Hoe zorg ik ervoor dat dit er steeds komt?
Ook in deze cellen heb ik reeds bij celeigenschappen dit aangepast, maar ook dit werkt niet.

Alvast zeer veel dank voor jullie hulp!!

 

[snb]

Gebruik dit numberformat:

cells(1).NumberFormat = "@ °C"

Gebruik deze wegschrijfcode:

ActiveCell.Offset(, 1) = Textbox1.Text

of

ActiveCell.Offset(, 1) = replace(Textbox1.Text,",",".")

 

[edmoor]

Of:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "A1" Then
        If InStr(1, Target.Value, ",") > 0 Then
            Target.NumberFormat = "###.## ºC"
        Else
            Target.NumberFormat = "##### ºC"
        End If
    End If
End Sub

 

[Bakkerken]

Super!! Werkt perfect.

Dank voor jullie hulp