|
@ sigma.
Danke, habe die Variablen als Double deklariert. Der Fehler tritt allerdings noch immer auf.
@ severus
Kann mit deinem Tipp um ehrlich zu sein nicht viel anfangen. Soll ich jeweils diese Blöcke durch deinen ersetzen oder sie um ihn ergänzen?
Private Sub lufttemp_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
Case 44, 46
KeyAscii = 44
If InStr(1, lufttemp.Text, ",") Then KeyAscii = 0
Case Else: KeyAscii = 0
End Select
End Sub
Das komische ist, dass ich genau das Selbe in anderen Programmierungen auch mache und es funktioniert... Bisher schaffe ich es nicht, es in den Griff zu bekommen. Ich hoffe ihr könnt doch noch helfen! :-)
Danke
|