wo liegt der Fehler

[PetrolMaxxe]

Hallo Thomas,

diese Prozedur erledigt exakt was du in #8 ergänzt hast zusätzlich mit. Aber eben nicht mehr und nicht weniger. Wenn da was noch nicht klappt dann braucht es dann schon eine klare Aussage was an Funktionalität noch ergänzt werden muss.

Gruß Uwe

[Thomasius]

Hallo Uwe
ich habe
If Not Intersect(Target, Range("c5:c35")) Is Nothing Then ' nur dieser Bereich
Target = UCase(Target)
End If
versucht mit einzubinden das klappt ja aber ich kann dann nicht mehr eine Uhrzeit eingeben habe es wieder gelöscht ( erstmal ) und schreibe dann selber in Grosss
irgendwo ist der wurm drin weil ich in c5:c35 uhrzeiten ohne doppelpunkt schreiben kann 700 =7:00

danke für die mühe
gruß Thomas

ps ich gebe nicht auf und versuche es zu lösen.

[PetrolMaxxe]

Besingung: Wenn Text im Bereich C5:C35 dann in Großbuchstaben. Das geht so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C5:E35")) Is Nothing Then
        Application.EnableEvents = False
        If IsNumeric(Target) Then
            If Len(Target) = 3 Then
                Target = CDate(Left(Target, 1) & ":" & Right(Target, 2))
            End If
        Else
            If Target.Column <> 3 Then
                Target = ""
            Else
                Target = UCase(Target)
            End If
        End If
        Application.EnableEvents = True
    End If
End Sub

Gruß Uwe

[boskobiati]

Hi,

ein Vorschlag von mir:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim loA As Long
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("F37,F43,C5:E35")) Is Nothing Then
    If Target = "" Then Exit Sub
        Application.EnableEvents = False
            If Not IsNumeric(Target) Then
                If Target.Column <> 3 Then
                    response = MsgBox("Eingabefehler! Nur Zahlen erlaubt!", vbOKOnly, "Achtung")
                    Target = ""
                Else
                    Target = UCase(Target)
                End If
            Else
                Target = CStr(Target)
                loA = Len(Target)
                Target = Left(Target, loA - 2) & ":" & Right(Target, 2)
                Target.NumberFormat = "[h]:mm"
            End If
            Application.EnableEvents = True
End If
If Not Intersect(Target, Range("f44")) Is Nothing Then
    Application.EnableEvents = False
        If IsNumeric(Target) Then
            Target = Left(Format(Target, "00000"), 3) & ":" & Right(Target, 2)
            Target.NumberFormat = "[h]:mm"
        End If
    Application.EnableEvents = True
End If
End Sub

[Thomasius]

Ihr seid die  Besten

vielen vielen Dank das klappt super Edgar
in c und D ist es genau richtig aber in E geht keine 30 soll dann 0:30 
mfg Thomas

[Thomasius]

hallo
allen ein Danke hab es jetzt hinbekommen
gruß Thomas