Ereignis-Uhrzeitumwandlung

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Application.EnableEvents = False On Error GoTo ERRORHANDLER If Target.Row < 8 Or _ Selection.Cells.Count > 1 Then Exit Sub Select Case Target.Column Case 3, 5 Target = Format(Target, "00:00") End Select Application.EnableEvents = True Exit Sub ERRORHANDLER: Target.ClearContents Application.EnableEvents = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Application.EnableEvents = False On Error GoTo ERRORHANDLER If Target.Row < 8 Or _ Selection.Cells.Count > 1 Then Exit Sub If Target.Text <> ":" Then Select Case Target.Column Case 3, 5 Target = Format(Target, "00:00") End Select End If Application.EnableEvents = True Exit Sub ERRORHANDLER: Target.ClearContents Application.EnableEvents = True End Sub

Auch Hallo,
&gt wie kann ich es erreichen, dass der eingegebene String bei Eingabe eines ":" nicht
&gt automatisch in eine Uhrzeit umgewandelt wird.
IMHO so gar nicht. Excel hat das bereits getan BEVOR Deine Ereignisfunktion aufgerufen wird.
Einfachste Abhilfe: Formatiere die Spalten 3 und 5 Deiner Tabelle als Text.
Dann kannst Du Dir die Ereignisfunktion komplett sparen.
Oder schreibe halt beim Eingeben (oder auch im VBA!) einfach ein ' davor.
Es bringt Dir übrigens überhaupt nichts via Format - ein Falsches noch dazu - das Teil in einen String zu wandeln ! Beim Zurückschreiben wandelt es Excel danach einfach wieder in eine Uhrzeit ;-)
Übrigens, Du schaltest Dir u.U. selber die Ereignisse ab !
HTH, Bernd
--
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    On Error GoTo ERRORHANDLER

    If Target.Row < 8 Or Target.Count > 1 Then Exit Sub

    Application.EnableEvents = False
    If IsNumeric(Target.Value) Then
        Select Case Target.Column
            Case 3, 5
                Target.NumberFormat = "@"
                Target.Value = Format(Target, "hh:mm")
        End Select
    End If
    Application.EnableEvents = True

    Exit Sub
    ERRORHANDLER:
    Application.EnableEvents = False
    Target.ClearContents
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Application.EnableEvents = False On Error GoTo ERRORHANDLER If Target.Row < 8 Or _ Selection.Cells.Count > 1 Then Exit Sub If Target.Text <> ":" Then Select Case Target.Column Case 3, 5 Target.NumberFormat = "hh:mm" End Select End If Application.EnableEvents = True Exit Sub ERRORHANDLER: Target.ClearContents Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread