habe im Frühjahr folgendes Macro von Hajo bekommen jedoch erst jetzt eingesetzt. Na ja habe warscheinlich etwas unkompetent daran herumgebastelt. Das Macro soll nur im Zellbereich D5:E35 wirksam sein. Wer kann mir helfen. Hajo kannst Du noch mal ran?
Besten Dank im Voraus
Dieter
Sub Militärzeitbereich()
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Bereich As Range
Dim s%, m%
'Soll nur bei einer Eingabe in Spalte E,F,I,J wirksam werden:
Set Bereich = Range("D5:E35")
With Cells(Target.Row, Target.Column)
If .Value = "" Then Exit Sub
If ActiveSheet.ProtectContents = False Then Exit Sub
If .Value > 2359 Then
MsgBox "Auf dieser Welt gibt es nur Uhrzeiten bis 23:59 Uhr.", , "Falsche Uhrzeit"
.Value = ""
Else
If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect
If IsNumeric(.Value) And InStr(.Value, ":") = 0 And InStr(.Value, ",") = 0 Then
' .NumberFormat = "[hh]:mm"
If Len(.Value) > 2 Then
s = Left(.Value, Len(.Value) - 2)
m = Right(.Value, 2)
Else
s = 0
m = .Value
End If
End If
.Value = s & ":" & m
If ActiveSheet.ProtectContents = True Then Exit Sub
If ActiveSheet.ProtectContents = False Then ActiveSheet.Protect
End If
End If
End With
End Sub