Zahlen bei Eingabe in Std./ Min. umwandeln

Question

Hallo, ich bastele nun schon seit Stunden am Zeitformat in einer Tabelle.
Es geht darum, dass ich in einer Liste Zahlen eingebe, die beim Bestätigen automatisch das Format Std/Minute darstellen sollen.
Also Eingabe z.B. 65 , das Ergebnis soll dann 01:05 sein.

Mit der Formatierung: 00*:*00 erhalte ich nur den Wert : 00:65 .

Hat jemand eine Idee wie sich das verwirklichen lässt ?

Schon mal dankeschön für konstruktive Ideen :)

Answer 1

Hallo,
ich wüsste keine Möglichkeit, dass mit einer Zellformartierung zu bewerkstelligen.
Es werden wohl Hilfszellen mit Berechnungen nötig sein.
X=Zelle der Eingabe.

z.B.: =Ganzzahl(X/60) ergibt volle Stunden
=x-Ganzzahl(X/60) ergibt Minuten

usw.

Und danach in einer weiteren Zelle wieder zusammenfügen.

Nur mal so ganz auf die Schnelle als Anregung...

Gruß
Kauz

Answer 2

Hallo listenbastel,

wie schon erwähnt geht das per Formel nur mit Hilfszelle.

wenn in A1 der Minutenwert 65 steht. lautet die Formel für den Zeitwert

=A1/1440

Zellformat: [hh]:mm

Gruß
Rainer

Answer 3

Hi,

das kann man mit VBA machen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.ScreenUpdating = False
If Target.Count = 1 Then
Application.EnableEvents = False
If IsNumeric(Target) Then
If Right(Target, 2) <= 60 Then
If Len(Target) < 3 Then
If IsDate(TimeValue(Target & ":00:00")) Then _
Target = TimeValue(Target & ":00:00")
ElseIf Len(Target) = 3 Then
If IsDate(TimeValue(Left(Target, 1) & ":" & Right(Target, 2) & ":" & "00")) Then _
Target = TimeValue(Left(Target, 1) & ":" & Right(Target, 2) & ":" & "00")
ElseIf Len(Target) = 4 Then
If Left(Target, 2) <= 24 Then
If IsDate(TimeValue(Left(Target, 2) & ":" & Right(Target, 2) & ":" & "00")) Then _
Target = TimeValue(Left(Target, 2) & ":" & Right(Target, 2) & ":" & "00")
End If
End If
End If
Target.NumberFormat = "hh:mm"
End If
Application.EnableEvents = True
End If
Application.ScreenUpdating = True
End If
End Sub

Eingabe erfolgt in Spalte A - musst du an deine Bedingungen anpassen.

Bis später,
Karin

Answer 4

Hallo rainberg,
genau das war es, wonach ich gesucht habe.
Hat mir sehr viel weitergeholfen. Vielen Dank.

Grüße
listenbastel


An Kauz und Beverly ebenfalls vielen Dank.
Eure Antworten haben mich mindestens zum Nachdenken angeregt ( für die nächsten Tabellen ;).

Grüße
listenbastel