Zeile der aktiven Zelle farblich markieren...

[Jockel]

Hallihallo, liebe Mitstreiter, Mitlesende und Interessierte. Ich muss eine Liste am PC mit einer Liste in Papierform abgleichen. Durch das dauernde hin- und hergucken habe ich schon Schwindelanfälle, deswegen wollte ich nachfrage ob, und wenn ja wie es möglich ist, einen Datensatz farblich zu markieren, also die aktuelle Zeile von B bis N. Wichtig es sollte möglich sein mit dem Cursor zu navigieren (also hoch und runter), wenn ich die Maus benutzen muss, könnte ich auch in A ein Kreuz machen und die bedFormatierung benutzen, aber dann muss ich (ja) absetzen...

[Hardy12071991]

Habe die Problemstellung leider nicht ganz verstehen können :S

Du willst also Praktisch von Zeile zu Zeile und die abgeglichenen Werte Praktisch abhacken?

[Rabe]

Hi Jörg,

wie es möglich ist, einen Datensatz farblich zu markieren, also die aktuelle Zeile von B bis N.

hinter das Blatt folgenden Code:

Option Explicit



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  

  If Not Intersect(Target, ActiveCell) Is Nothing Then

     Range("B" & ActiveCell.Row & ":N" & ActiveCell.Row).Interior.Color = 255

  End If

End Sub

dann wird die aktuelle Zeile rot

[Crazy Tom]

Hallo

oder so

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Cells(ActiveCell.Row - 1, 2).Resize(1, 13).Interior.ColorIndex = xlNone
   Cells(ActiveCell.Row, 2).Resize(1, 13).Interior.Color = vbYellow
End Sub

nur aufpassen dass du nicht die erste Zeile anklickst
MfG Tom

[Jockel]

Habe die Problemstellung leider nicht ganz verstehen können :S

Du willst also Praktisch von Zeile zu Zeile und die abgeglichenen Werte Praktisch abhacken?

Hallo, danke für's Lesen. Nein, ich will nix abhaken. Nicht in der Datei... Aber ich will nicht immer den aktuellen (auswählbaren) datensatz suchen (müssen)...

[Jockel]

Hi Jörg,
hinter das Blatt folgenden Code:

Option Explicit



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  

  If Not Intersect(Target, ActiveCell) Is Nothing Then

     Range("B" & ActiveCell.Row & ":N" & ActiveCell.Row).Interior.Color = 255

  End If

End Sub

dann wird die aktuelle Zeile rot

Hallo Ralf, zuerst Mal danke. Funktioniert soweit, bis auf eine Kleinigkeit. Die Datensätze bleiben eingefärbt auch wenn ich "weiterziehe" - es sollte nur der jeweilige Datensatz markiert sein...  Und ich schau mal, ob ich eine andere Farbe finde... So ein schickes dunkelblau z. B.

[Jockel]

Hallo

oder so

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Cells(ActiveCell.Row - 1, 2).Resize(1, 13).Interior.ColorIndex = xlNone
   Cells(ActiveCell.Row, 2).Resize(1, 13).Interior.Color = vbYellow
End Sub

nur aufpassen dass du nicht die erste Zeile anklickst
MfG Tom

Hallo, danke auch dir. Ich hab's nicht probiert und auch nicht vor, aber wieso nicht Zeile 1..? Runter zu geht's prima. Nur der jeweilige Datensatz ist markiert. Muss ich aber zurück, also hoch bleiben die unteren markiert... Kann man daran noch schrauben..?

[Rabe]

Hi Jörg,

da ist das Makro von Tom besser.

[Crazy Tom]

Hallo Jockel

nu darfste auch Zeile 1 auswählen

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If ActiveCell.Row <> 1 Then
       Cells(ActiveCell.Row - 1, 2).Resize(1, 13).Interior.ColorIndex = xlNone
   End If
   Cells(ActiveCell.Row, 2).Resize(1, 13).Interior.Color = vbYellow
   Cells(ActiveCell.Row + 1, 2).Resize(1, 13).Interior.ColorIndex = xlNone
End Sub

MfG Tom

[Jockel]

Hallo Tom, das ist ja ---> verrückt <---- ... das klappt, danke. Die andere Farbe kreige ich bestimmt alleine hin, oder ..?