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
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.
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
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
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
hallo
allen ein Danke hab es jetzt hinbekommen
gruß Thomas