Ereignis-Eingabeformatierung
15.06.2005 11:15:29
Peter
ich möchte das in Spalte 2 nur numerische Tastatureingaben ermöglicht werden und diese in ein Datum umgewandelt werden.
z.B. 030605 in 03.06.05
Da Excel ein Datum automatisch. erkennt, soll diese Funktion natürlich erhalten bleiben.
Das gleiche soll für die Uhrzeit gelten.
In Spalte 3 sollen nur numerische Tastatureingaben ermöglicht werden und
in eine Uhrzeit umgewandelt werden (hh:mm)
z.B. 0012 in 00:12
Da Excel eine Uhrzeit automatisch. erkennt, soll diese Funktion natürlich erhalten bleiben.
In Spalte 4 möchte ich das Datum und die Uhrzeit zusammenfassen um damit
zu rechnen.
Für die Uhrzeit habe ich diese Lösung gefunden.
-Leider kommen Fehlwerte beim überschreiben der vorhandenen Eingaben.-
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s%, m%
If Target.Row < 8 And Target.Column <> 3 Then Exit Sub
With Cells(Target.Row, Target.Column)
If .Value = "" Then Exit Sub
If IsNumeric(.Value) And InStr(.Value, ":") = 0 And _
InStr(.Value, ",") = 0 Then
.NumberFormat = "[hh]:mm"
If Len(.Value) > 2 Then
s = Left(.Value, Len(.Value) - 2)
m = Right(.Value, 2)
Else
s = .Value
m = 0
End If
.Value = s & ":" & m
End If
End With
End Sub
Ich bedanke mich schon im voraus für die Hilfe
Peter
Anzeige