[VBA] SheetSelectionChange und Hyperlinks
02.01.2018 11:43:00
Nils
ich habe ein Excel-Addin mit folgendem Code in einem Klassenmodul, was mir bei Aktivierung einer Zelle in einem festgelegten Bereich ein Datum einträgt:
Private Sub mobjApplication_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim objRange As Range, objCell As Range
If Sh.Name = "Blatt_1" Then
Set objRange = Intersect(Target, Range(Cells(37, "AB"), Cells(Rows.Count, "AB")))
If Not objRange Is Nothing Then
For Each objCell In objRange
If objCell.Value = "" Then
objCell.Value = Format$(Date, "dd.mm.yy")
End If
Next
Set objRange = Nothing
End If
End If
End Sub
Wie kann ich Target auf die Zelle beziehen, die nach öffnen der neuen Arbeitsmappe aktiv ist?
ich hoffe man versteht das problem...
Vielen Dank für jede Hilfe
Nils