textboxes + inhalte
31.10.2005 09:23:11
effi
mit folgendem code will ich erreichen, dass die werte in frm1 der beiden textboxes B6 und F3 in frm2 verwendet werden können.
dazu habe ich zwei variblen varB6# und varF3# als public in mein modul "rout1" deklariert.
Problem varB6 hat einen Wert aber varF3 nicht. wo liegt hier mein Fehler, ist doch genau der gleiche code?
mein std.modul:
Public varB6#, varF3#
Sub rout1()
varC1 = 2 * varB6 * varF3
frm2.C1.Value = varC1
...
in frm1 textboxes mit folgendem Inhalt:
Private Sub B6_o_si_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If B6_o_si = "" Then
GoTo sprungmarke
Else: B6 = B6_o_si * (10 ^ -3)
End If
varB6 = CDbl(B6)
sprungmarke:
End Sub
Private Sub F3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If ((F3 = "") Or (G5 = "")) Then
GoTo sprungmarke
Else
D3 = G5 / F3
varD3 = CDbl(D3)
End If
varF3 = CDbl(F3)
sprungmarke:
End Sub
hat jemand eine idee?