Kann mir wer einen Tipp geben, wie ich diesen Code trotz in dieser Zelle befindlichen Formel verwenden kann.
Ach ja, die Zelle sollte nach Doppelklick und Übernahme, rot eingefärbt werden. Geht allerdings nicht, da in der Zelle eine Formel steht.
Danke
chris58
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("M5:O50000")) Is Nothing Then
Sheets(Target.Column - 12 & ". Mahnung").Range("D16").Value = Target.Value
End If
End Sub