Nach Code von Hajo Eintrag in Kontextmenü verschwu
04.01.2010 14:28:23
Mister B
Hallo,
folg. Code von Hajo habe ich hier aus dem Forum:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range, RaZelle As Range
Dim InS As Integer
Dim InM As Integer
Set RaBereich = Range("I7:R37, T7:V37")
ActiveSheet.Unprotect
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
With RaZelle
If .Value <> "" Then
If IsNumeric(.Value) And InStr(.Value, ":") = 0 And _
InStr(.Value, ",") = 0 Then
.NumberFormat = "[h]:mm"
If Len(Target.Value) > 2 Then
InS = Left(.Value, Len(.Value) - 2)
InM = Right(.Value, 2)
Else
InS = 0
InM = .Value
End If
.Value = InS & ":" & InM
End If
End If
End With
End If
Next RaZelle
ActiveSheet.Protect
Application.EnableEvents = True
End Sub
Er macht alles was er soll nur nachdem der Code gelaufen ist, fehlt der Eintrag "Kommentar einfügen" aus dem Kontextmenü. Erst nachdem man die Tabelle deaktiviert und neuaktiviert (durch Anklicken) ist der Eintrag wieder da. Hat jemand eine Idee was hier nicht rund läuft?
Danke und Gruß
Martin