Hallo Zusammen,
einfaches Problem, aber ich steh voll auf dem Schlauch.
Ich habe in Zellen mit den Eingangswerten Uhrzeiten drin. Diese lese ich aus. Dann verändere ich sie (-1 Minuten) und füge sie an gleicher Stelle wieder ein. Die Zellen sind im Fomat hh:mm;@.
Es funktioniert, wenn in der Zelle ein Wert steht wie z.B. 12:00:00 (sichtbar ist nur 12:00). Dann liest das Programm richtigerweise den Wert (0.5). Wenn allerdings in einer Zelle nur 12:00 (ohne :00) steht erscheint "Datentypen unverträglich". Wie kann ich meine 12:00 als Double einlesen? Ich möchte vermeiden, jeder Zelle (sehr viele!) in denen das der Fall ist, manuell :00 hinzuzufügen. :D
Sub Zeitversatz()
Dim c As Range
Dim v As Double
For Each c In Selection
v = c.Value
' -1 Minute
c.Value = v - 6.94444444444444E-04
Next
End Sub
Viele Grüße
Oskar
|