Aktuelles Datum
15.09.2006 15:03:29
Walter
ich habe folgendes Makro, für das einsetzen eines Betrages in einer Textbox, die auf der UF ist.
Nun möchte ich, sobald man die Textbox verläßt das akt.Tagesdatum also
15.09.2006 eingesetzt wird und zwar direkt in die Zelle und dann als Label anzeigen, wenn "0" oder der Betrag gelöscht wird soll das Datum auch gelöscht werden.
Private Sub TextBox23_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox23) = False And TextBox23 <> "" Then
MsgBox "Nur EURO eingeben!", vbCritical
TextBox23.SetFocus
Cancel = True
With TextBox23
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
On Error Resume Next
ActiveCell.Offset(0, 33) = CDbl(Format(TextBox23, ("#,##0.00"))) TextBox23 = Format(ActiveCell.Offset(0, 33).Value, ("#,##0.00"))
ActiveCell.Offset(0, 31) = Tagesdatum ?
Label31.Caption = Format(ActiveCell.Offset(0, 31), "mm-dd-yyyy")
End Sub
mfg Walter aus MG