ich habe folgendes Makro:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("E8:E38")) Is Nothing Then
Cancel = True
If Target = "" Then
Select Case Target.Column
Case 5
Target = "Urlaub"
Target.Font.Color = -16776961
Target.Offset(0, 6) = CDate("1:58")
End Select
Else
Target = ""
Target.Offset(0, 6).ClearContents
Target.Font.ColorIndex = xlAutomatic
End If
End If
End Sub
Wenn nun im Bereich E8:E38 durch Rechtsklick "Urlaub" und in J8:J38 "1:58" richtig eingetragen wird, wird aber leider die in Spalte N stehende Formel immer mit dem Wert "0,08" überschrieben.
Was ist hier falsch?
Gruß
mike49