sorry habe nich dein vorschlag ignoriert , habe es versucht aber leider ohne ervolg .Habe extra die tabelle hochgeladen zur anschauung
wichtig ist das in F die Zeit als 00:00 dargestellt wird
frohe weihnachten gruss Thomasius
Sorry habe dein Vorschlag nicht Ingnoriert habe es versucht aber leider ohne ervolg.
wichtig ist das in F die Zeit 00:00 angezeigt wird
Frohe weihnachten gruss Thomasius
(22.12.2022, 20:02)Thomasius schrieb: [ -> ]habe es versucht aber leider ohne ervolg .Habe extra die tabelle hochgeladen zur anschauung
Aber ohne die Formel bzw. deinen Versuch.
wehre es möglich meine hochgeladene Datei so zu endern das wenn ich frei schreibe in zeit 00:00 steht
wenn nicht , auch gut und danke
Wo ist denn jetzt das Problem, eine Verweistabelle (siehe Bild) zu erstellen, auf die du mit der Formel von Detlef zugreifst?
[
attachment=1195]
ok bin ich nicht fähig zu danke euch allen
Moin,
hab dir da mal eine Tabelle zusammengestellt.
Frohe Weihnachten und einen guten Rutsch wünscht
Roger
[
attachment=1196]
super Danke für die Tabelle
danke dir auch schöne Weihnachten .exel will immer reparieren beim öffnen
eins noch :
ich habe
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Eingabe As Variant
On Error GoTo fehler1
If Not Intersect(Target, Range("C2,H2,F37,F43,C5:E35")) Is Nothing Then
Application.EnableEvents = False
With Target
If Not IsNumeric(.Value) Then GoTo fehler1
If IsEmpty(Target) Then
Target.Value = ""
GoTo fehler1
End If
.Value = Left(Format(Target, "0000"), 2) & ":" & Right(Target, 2)
' funkt am besten
' Wenn Std über 24 und gleichzeit Minuten über 60 erfasst werden, wird Text zurückgegeben.
.NumberFormat = "[hh]:mm"
End With
End If
fehler1:
Application.EnableEvents = True
End Sub
klappt alles super nun möchte ich in F47 3 stellig haben habe das versucht :.Value = Left(Format(Target, "00000"), 3) & ":" & Right(Target, 2)
aber wie kann ich beide befehle verwenden ?