Brauche Hilfe bei CodeAnpassung
Holger
erstmal Danke an Hajo und Rudi bzgl der Vorschläge zur Übersichtlichkeit meiner Tabelle.
Nun habe ich aus dem Internet folgenden Code gefischt, der immer die jeweils
aktive Zelle gelb hinterlegt. Vom Prinzip genau das, was ich brauche, allerdings
müssten drei Anpassungen vorgenommen werden.
1 Nur in den Spalten H, I und J soll die aktive Zelle gefärbt werden
2 Zusätzlich zur jeweiligen Zelle, soll immer die Zelle derselben Row in Spalte A gefärbt werden
3 Der Rahmen der dazwischenliegenden Zellen sollte temporär auch gefärbt werden (Idee Fadenkreuz nur horizontal).
Aus meiner Sicht wäre das eine klasse Sache, um die Übersichtlichkeit zu erhöhen, vielleicht hat ja jemand List mit mir zusammen daran zu arbeiten, da das bstimmt viele gebrauchen können!?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldIndex As Integer
Static OldCell As Range
'Rangebereich festlegen auf Spalte H, I und J
'Immer die Zelle der Spalte A mitfärben
'Zwischen Target und Spalte A Rahmen färben
On Error Resume Next
OldCell.Interior.ColorIndex = OldIndex
If Not OldCell Is Nothing Then
OldIndex = Target.Interior.ColorIndex
End If
Target.Interior.ColorIndex = 6
Set OldCell = Target
End Sub