Frage zu meinem Code
08.03.2023 11:13:07
Jan
ich habe diesen Code der recht gut funktioniert.
Jetzt wollte ich noch was einbauen:
bei Target.Offset(0, 2) = FormulaR1C1 = "=R[-4]C[2]" wollte ich das er immer die E1 nimmt ( E1 =Formel =RECHTS(ZELLE("dateiname";A1);LÄNGE(ZELLE("dateiname";A1))-FINDEN("]";ZELLE("dateiname";A1))) ) und dann die Formel in der Zeille herausnimmt, so das immer der Test steht.
In E1 die Formel soll aber stehen bleiben
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Target = Date
Target.Offset(0, 1) = Environ("Username")
Target.Offset(0, 2) = FormulaR1C1 = "=R[-4]C[2]"
Cancel = True
End If
End Sub
Kann man sowas lösen ?