TextBox7_KeyDown Fehler
21.03.2005 16:07:04
ray
'bei aufruf der UF steht in TB7 ein Datum. Dieses Datum will ich bearbeiten(geht aber nicht) bzw. ich will TB7 per ENTER einfach verlassen. (geht)
Private Sub TextBox7_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
blnEnter = True
End If
CommandButton3.SetFocus
End Sub
'Wenn ich TB7 verlasse, egal wie soll siehe unten passieren. (geht nur, wenn ich mit ENTER verlasse.)
Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If blnEnter = False Then
Cancel = True
Else
blnEnter = False
End If
Worksheets("datenOutput").Range("c21").Value = Me.TextBox7.Text
Me.TextBox6.Text = Worksheets("datenOutput").Range("c22").Value
End Sub
Kann mir jemand bitte sagen, was hier falsch ist?
Viele Grüße aus HAmburg bei 10 Grad
ray