Zellfarbe ändert sich ungewollt....
13.03.2017 07:48:10
Nati
Guten Morgen zusammen,
ich habe 2 Sheets, das eine sheet verweist mit einem Hyperlink auf ein anderes sheet.
Auf dem ersten sheet stehen Fragen, auf dem zweiten die zugehörige Beschreibung.
Wenn ich den Hyperlink folge soll sich in dem zweiten sheet die Frage gelb färben ( das geschieht auch), danach soll jedoch die zelle die ursprüngliche Farbe beibehalten.
Komischerweise färbt die zelle sich dann aber immer anders, als die Zelle vor dem Link war.
Mein Code:
Option Explicit
Public OldColorIndex As Variant
Public OldRange As String
Public Register As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 2 Then Exit Sub
' Beim 1. Aufruf ist OldRange noch undefiniert
If OldRange = "" Then
OldRange = Target.Address
OldColorIndex = Target.Interior.ColorIndex
' Setze Hintergrundfarbe der aktiven Selection auf GELB
Target.Interior.ColorIndex = 6
Else
' Setze alten Range auf alte Farbe
If Range(OldRange).Interior.ColorIndex = 6 Then
Range(OldRange).Interior.ColorIndex = OldColorIndex
End If
OldColorIndex = Target.Interior.ColorIndex
' Merke mir aktuellen Adresse für nächsten Aufruf
OldRange = Target.Address
' Setze Hintergrundfarbe der aktiven Selection auf GELB
Target.Interior.ColorIndex = 6
End If
End Sub
Ich habe die komplette Datei noch im Anhang.Ziel ist also, dass nach dem folgen des Links und auswählen einer anderen zelle die Zelle wieder ihre ursprüngliche Farbe erhält.
Ich bin dankbar über jede Hilfe.
https://www.herber.de/bbs/user/112140.xlsm
Liebe Grüße Nathalie