ich habe ein kleineres oder auch größeres Problem, wäre nett wenn mir jemand bei der behebung behilflich sein könnte!
Und zwar wird in die Spalte A eine Zeit eingetragen, jedoch ohne Doppelpunkt ( z.B. 236 für 2:36 oder 1134 für 11:34) nach der Eingabe soll die Zahl in eine Uhrzeit umgewandelt werden und von der Referenzzeit 12:00, die überall in Spalte B steht abgezogen werden. Das Ergebnis Also B-A soll dann in Spalte C ausgegeben werden. Die in A eingetragene Zeit muss kleiner sein als 12:00!
Habe folgenden Entwurf dazu gemacht!
Public Sub Active_Cell()
Columns(2).Value = "12:00"
Referenzzeit = "12:00"
zahl = ActiveCell
Zeichenanzahl = Len(zahl)
If Zeichenanzahl = 4 Then
Zeichen1 = Mid(zahl, 1, 2)
Zeichen2 = Mid(zahl, 3, 4)
ActiveCell.Value = Zeichen1 & ":" & Zeichen2
Columns(3).Value = "=RC[-1]-RC[-2]"
ElseIf Zeichenanzahl = 3 Then
Zeichen3 = Mid(zahl, 1, 1)
Zeichen4 = Mid(zahl, 2, 3)
ActiveCell.Value = Zeichen3 & ":" & Zeichen4
Columns(3).Value = "=RC[-1]-RC[-2]"
End If
End Sub
Nun ist dieser Entwurf allerdings nur für die Active Zelle programmiert und ich weiß nicht wie ich das programm auf die ganze Spalte A ausbreiten kann!
Außerdem sollte das Programm mit der Enzter Taste ausgelöst werden!
Wäre nett wenn mir jemand helfen kann!
Grüße Marc