Formel umstellen
21.08.2019 14:24:14
Alexander
in meiner Tabelle hat sich ein Fehler eingeschlichen. die Ursprüngliche Formel lautet:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D7:G47")) Is Nothing Then
Cancel = True
Target.Formula = Now()
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("Schaltbuch").Protect Password:="NL2442", UserInterFaceOnly:=True
If Not Intersect(Target, Range("D7:G26;D28:G47")) Is Nothing Then
Cancel = True
Target.Formula = Now()
End If
End Sub
Die Zeile D27 muss einfach aus der Formel raus. Schon mal Danke im Vorraus.