Target.Address mit R1C1 Bezug
11.03.2015 12:08:08
Robert
der Code unten funktioniert einwandfrei und fügt bei der Selektion der Zelle Q3 das aktuelle Datum ein. Da ich die Zelle Q3 aber variabel veränderbar bräuchte möchte ich die Zelle Q3 nach Target.Address mit R1C1 Bezug darstellen.
funktioniert:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$Q$3" And Range("A3") "" Then
Target = Date
End If
End Sub
funkftioniert nicht
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = Cells(3, 17) And Range("A3") "" Then
Target = Date
End If
End Sub