VBA
01.02.2023 20:40:52
Papavonzwei
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 Subjetzt will ich in F47 3 stellig schreiben können Value = Left(Format(Target, "00000"), 3) & ":" & Right(Target, 2) dachte so
und hätte gern den befehl für goss schreiben noch
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("c5:c35")) Is Nothing Then On Error GoTo ErrorHandler Application.EnableEvents = False Target.Value = UCase(Target) ErrorHandler: Application.EnableEvents = True End If End Sub
aber bekomme nicht alle 3 code in tabelle 1
einzeln funktioniert alles hoffe mir kann einer helfen