hi
kann mir wer helfen ich weiß nicht was da nicht stimmt
Public Function UMRECHNEN(Celsius As Single, Einheit As Boolean) As Single
Dim text1 As Single
Dim text2 As Single
text1 = "F"
text2 = "K"
If Einheit = text1 Then
UMRECHNEN = Celsius * (9 / 5) + 32
ElseIf Einheit = text2 Then
UMRECHNEN = Celsius + 273.15
Else
Umrechner = xlErrName
End Sub
End If
End Function
Freue mich auf antworten
LG
|