Bei Enter VBA-Code ausführen
11.11.2005 11:19:37
Gerhard
ich habe eine Tabelle, in der in einer Zelle Daten im Zeitformat geschrieben werden soll.
Ich will, dass wenn der Benutzer keinen Doppelpunkt schreibt, Excel die Daten automatisch als Uhrzeit erkennt. Gut wäre es auch, wenn Excel das im Tabellenblatt "Eingabe" generell machen würde, ohne sich auf eine bestimmte Zelle zu beziehen. Ich habe mir hier auch zwei VBA-Codes herausgesucht und versucht sie zusammen zu basteln. Da ich leider von VBA keine große Ahnung habe, muß sich dabei ein Fehler eingeschliessen haben. Ich bekomme immer die Fehlermeldung "Typen unverträglich". Kann mir irgendjemand weiterhelfen?
Hier der VBA-Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim sTxt As String
If Target.Address = "$I$14" Then
For Each rng In Selection.Cells
sTxt = rng.Value
rng.NumberFormat = "hh:mm"
rng.Value = TimeSerial(Left(sTxt, 2), Right(sTxt, 2), 0)
Next rng
End If
End Sub
Anzeige