Zur Vereinfachung für die häufige Eingabe von Zeitangaben in Dienstplänen suche ich eine Lösung für die Umwandlung von ein- bis vierstelligen Zahlen in Stunden:Minuten, z. B.
9 > 9:00
12 > 12:00
915 > 9:15
2045 > 20:45
Bei meiner Recherche habe ich bislang nur Teillösungen gefunden. Folgendes Makro
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value > 1 And Len(Target.Value)
kommt meinem Ziel am nächsten. Aufgrund bescheidener VBA-Kenntnisse kann ich den Code jedoch allein nicht entsprechend anpassen.Kann mir jemand dabei helfen oder hat eine andere zündende Idee?
Vielen Dank im Voraus!
Lutz