Der Versuch, mit diesem Makro Zeiten in eine Zelle zu übergeben, ist fehlgeschlagen.
Sub Manuellzeit()
Manuell = InputBox("Bitte Zeit eingeben für die aktive Zelle." & _
" ENTER ohne Eingabe verläßt diesen Menüpunkt wieder", "Zeiten manuell eingeben")
If Manuell = "" Then
GoTo Ende
End If
ActiveCell.NumberFormat = "[hh]:mm;[Rot]-[hh]:mm"
ActiveCell = Manuell
Ende:
End Sub
Damit wird der eingegebene Wert z.B. -21:15 zwar in die avtive Zelle übergeben, aber obwohl ich die richtige Formatierung verwende, wird der Wert anscheinend nicht als numerischer, bzw. Zeitwert in der Zelle erkannt.
Denn in der Zelle, in der die Summe von M5:M16 berechnet wird ändert sich der Wert der Summe nicht.
Vermutlich ist die Zeile ActiveCell=Manuell nicht ausreichend genug.
Ich muss der Zelle irgendwie mitteilen, dass der übergebene Wert eine Zeit ist, bloß wie?