Arbeitszeile farblich hinterlegen... Problem!
Matthias
ich habe folgendes Problem und möchte Euch um Hilfe bitten:
Ich habe ein Arbeitsblatt, in dem in den Zellen A5:Z204 Daten enthalten sind, wobei die Spalten G:I orange hinterlegt sind.
Nun möchte ich die Arbeitszeile hellgrau hinterlegen, sodass man die Arbeitszeile einfacher feststellen kann.
Ich habe es mit dem nachfolgenden Skript versucht und folgendes Problem festgestellt...
- immer wenn ich in einen nicht farblich hinterlegten Bereich klicke und die Zeile wechsele, dann wird die farbliche Hinterlegung in den Spalten G:I gelöscht.
- immer wenn ich von einer Zelle in den Spalten G:I zu einer der anderen Zellen wechsele nimmt die gesamte Zeile die Hintergrundfarbe der Spalten G:I an.
Frage... wie muss man das Skript ändern, damit die Voreinstellungen der Hintergrundfarben in den Spalten erhalten bleiben, die Arbeitszeile aber dennoch farblich hervorgehoben wird?
Vielen Dank im Voraus!
LG Matthias
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static oldtarget As String
Static oldindex As Integer
On Error Resume Next
Range(oldtarget).EntireRow.Interior.ColorIndex = oldindex
oldindex = Target.Interior.ColorIndex
Rows(Target.Row).Interior.ColorIndex = 14
oldtarget = Target.Address
End Sub