bei Falscheingabe msgbox oder Korrektur
05.12.2018 16:18:35
Peerli
Ich habe folgenden Code
Private Sub Worksheet_Change(ByVal Target As Range)
' ***** Tipp von http:// _
_
www.excel-ist-sexy.de/zeit-eingabe-ohne-doppelpunkt/
' Procedur zur Zeiteingabe im Bereich Spalte T und U und X vierstellig => Ausgabe [h:mm]
Dim Eingabe As Variant
On Error GoTo ErrorHandler
If Not Intersect(Target, Range("T12:U42,X12:X42")) Is Nothing Then
Application.EnableEvents = False
With Target
.Value = CDate(Left(Format(Target, "0000"), 2) & ":" & Right(Target, 2))
.NumberFormat = "[h]:mm"
End With
End If
ErrorHandler:
Application.EnableEvents = True
' ************* Ende***********************************************************************
End Sub
...
Er soll bei Eingabe in der Zelle die Formatierungen eintragen, wenn ich nachfolgend nur Zahlen eingebe. Also z.B. 700 für 7:00.
Wie kann ich nun ein Meldung einfügen, wenn der User etwas anderes eingibt, damit ich keine falschen Angaben in die Zelle bekomme. Z.B bei Eingabe von 7:00 statt 700, aber bei 0700 nicht.
Vielen Dank für jede Hilfe.
LG
Peer