Office: Uhrzeit mit VB prüfen

Hallo,

da ich leider kompletter Anfänger in VB bin, habe ich leider zu meinem Problem auch nichts wirklich brauchbares gefunden.

Ich habe in einer Zelle (Nennen wir sie einfach mal A1) eine Uhrzeit stehen. Diese ist nach hh:mm:ss formatiert.
Nun möchte ich mit VB prüfen, ob die Uhrzeit über 12:00:00 geht. Ist dies nicht der Fall, passiert nichts. Wenn in der Zelle aber zB 12:45:54 steht, dann soll diese Zelle automatisch auf 12:00:00 gesetzt werden.

Hat jemand eine Idee wie dies zu realisieren ist?

Bin für jede Hilfe dankbar

 

Hallo Kiki123987,

ohne zu wissen wie-wann-wo oder wodurch sich der Zellwert ändert würde ich entweder das "Worksheet_Change" Ereignis oder das "Worksheet_SelectionChange" Ereignis des entsprechenden Blattes nehmen.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Me.Cells(1, 1) > 0.5 Then Me.Cells(1, 1) = 0.5
End Sub

oder

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Me.Cells(1, 1) > 0.5 Then Me.Cells(1, 1) = 0.5
End Sub

Ich hoffe geholfen zu haben.

 

Und wie! Ich danke dir. Auf den Zahlenwert der Uhrzeit hätte ich selbst drauf kommen müssen.

Vielen Dank nochmal ;)