[VBA] SheetSelectionChange und Hyperlinks

Hallo liebe VBA-Experten,
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

Der Code funktioniert 1A. Allerdings bekomme ich einen Runtime-Error, wenn ich über einen Hyperlink eine Arbeitsmappe öffne und ich die erste If-Bedingung erfülle. Der Grund ist meiner Meinung nach "Target", welches sich auf das Tabellenblatt und die Arbeitsmappe bezieht, von wo ich komme, also Tabellenblatt mit dem Hyperlink.
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub mobjApplication_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim objRange As Range, objCell As Range If Sh Is Nothing Then Set Sh = ActiveSheet If Target Is Nothing Then Set Target = ActiveCell 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

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 On Error Resume Next Set objRange = Intersect(Target, Range(Cells(37, "AB"), Cells(Rows.Count, "AB"))) Err.Clear On Error GoTo 0 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

Beliebteste Forumthreads (12 Monate)

[VBA] SheetSelectionChange und Hyperlinks

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

[VBA] SheetSelectionChange und Hyperlinks

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread