+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: wer kann mir helfen ? (/thread-28488.html)
Seiten:
1
2
RE: wer kann mir helfen ? - Thomasius - 22.12.2022
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
RE: wer kann mir helfen ? - Thomasius - 22.12.2022
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
RE: wer kann mir helfen ? - DL - 22.12.2022
(22.12.2022, 20:02)Thomasius schrieb: habe es versucht aber leider ohne ervolg .Habe extra die tabelle hochgeladen zur anschauungAber ohne die Formel bzw. deinen Versuch.
RE: wer kann mir helfen ? - Thomasius - 22.12.2022
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
RE: wer kann mir helfen ? - Calderon - 22.12.2022
Wo ist denn jetzt das Problem, eine Verweistabelle (siehe Bild) zu erstellen, auf die du mit der Formel von Detlef zugreifst?
RE: wer kann mir helfen ? - Thomasius - 22.12.2022
ok bin ich nicht fähig zu danke euch allen
RE: wer kann mir helfen ? - Calderon - 22.12.2022
Wie die Sverweis-Funktion funktioniert:
https://www.youtube.com/watch?v=K6_ireSTU98
RE: wer kann mir helfen ? - Roger 57 - 24.12.2022
Moin,
hab dir da mal eine Tabelle zusammengestellt.
Frohe Weihnachten und einen guten Rutsch wünscht
Roger
Exel Test Frei_1.xlsx (Größe: 25,16 KB / Downloads: 7)
RE: wer kann mir helfen ? - Thomasius - 24.12.2022
super Danke für die Tabelle
danke dir auch schöne Weihnachten .exel will immer reparieren beim öffnen
RE: wer kann mir helfen ? - Thomasius - 28.12.2022
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 ?