Vorgänger markieren

Hallo liebes Forum,
es gibt ja die tolle Funktion "Spur zum Vorgänger bzw. Nachfolger". Ich würde ganz gern, wenn ich eine beliebige Zelle selektiere, dass alle direkten Vorgänger bzw. Nachfolger (also nur den Bezug davor bzw. danach) farblich verschieden markiert werden, um gleich optisch den Zusammenhang zu sehen. Die Linien und Punkte der Standardfunktion sind zwar ok, aber bei umfangreichen Formeln doch tlw. sehr "verstrickt".
Habe im Netz schon einen code für den Vorgänger gefunden, jedoch funktioniert der bei mir nicht (!?)
Option Explicit

Public Sub test()
On Error Resume Next
If Not ActiveCell.DirectPrecedents Is Nothing Then _
ActiveCell.DirectPrecedents.Interior.ColorIndex = 3
End Sub

Kann mir jemand hierbei helfen, den Code zum laufen zu bringen und um den Nachfolger (DirectDependents)zu ergänzen, da meine VBA Kenntnisse hierfür doch noch nicht ausreichend sind. Der Makrorecorder war leider auch nicht ergiebig.
MfG
Tobias

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Public Sub test() On Error Resume Next If Not ActiveCell.DirectPrecedents Is Nothing Then _ ActiveCell.DirectPrecedents.Interior.ColorIndex = 3 If Not ActiveCell.DirectDependents Is Nothing Then _ ActiveCell.DirectDependents.Interior.ColorIndex = 3 End Sub

Private Sub worksheet_selectionchange(ByVal target As Range) Dim rg As Range Application.EnableEvents = False For Each rg In ActiveSheet.UsedRange With rg.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With Next If Not Intersect(ActiveCell, target) Is Nothing Then On Error Resume Next If Not ActiveCell.DirectPrecedents Is Nothing Then _ ActiveCell.DirectPrecedents.Interior.ColorIndex = 3 If Not ActiveCell.DirectDependents Is Nothing Then _ ActiveCell.DirectDependents.Interior.ColorIndex = 10 End If Application.EnableEvents = True End Sub

Hallo,
ich denke es hängt damit zusammen, dass Office2003 den Befehl noch nicht kennt. Du kannst die Zeilen rauslöschen.
Dass nichts mehr passiert hängt damit zusammen, dass deine Events durch den Abbruch noch deaktiviert sind.
Überschreibe den Code mit folgendem:
Dim a As Boolean

Sub anschalten()
Application.EnableEvents = True
If a = False Then
a = True
Else
a = False
For Each rg In ActiveSheet.UsedRange
rg.Interior.Pattern = xlNone
Next
End If
End Sub

Private


Sub worksheet_selectionchange(ByVal target As Range)
Dim rg As Range
If a Then
Application.EnableEvents = False
For Each rg In ActiveSheet.UsedRange
rg.Interior.Pattern = xlNone
Next
If Not Intersect(ActiveCell, target) Is Nothing Then
On Error Resume Next
If Not ActiveCell.DirectPrecedents Is Nothing Then _
ActiveCell.DirectPrecedents.Interior.ColorIndex = 3
If Not ActiveCell.DirectDependents Is Nothing Then _
ActiveCell.DirectDependents.Interior.ColorIndex = 10
End If
End If
Wenn du nun das Makro anschalten z.B. über eine Tastenkombination ausführst, dann kannst du wie  _
mit dein Selection-Event auch an- bzw. ausschalten. Ich denke, dass es sonst nervig wird, dass immer alles gefärbt wird.
Wichtig ist, dass dim a as boolean über allen Codes steht, sodass der Wert übergeben wird.

Beliebteste Forumthreads (12 Monate)

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread