wie ist es möglich, eine Berechnung in einem UF auszuführen?
z.B. eine Umrechnung von Stunden in Minuten, also die Eingabe von Stunden in einem (Text)-Feld, und die Ergebnisausgabe in einem weiteren Feld.
Danke im voraus
Ingo
Option Explicit
Dim Calc As Boolean
Private Sub TextBox1_Change()
If Calc = False Then
Calc = True
If TextBox1 = "" Then
TextBox2 = ""
Else
TextBox2.Value = CDbl(TextBox1) * 60
End If
Calc = False
End If
End Sub
Private Sub TextBox2_Change()
If Calc = False Then
Calc = True
If TextBox2 = "" Then
TextBox1 = ""
Else
TextBox1.Value = CDbl(TextBox2) / 60
End If
Calc = False
End If
End Sub