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...
Habe die Problemstellung leider nicht ganz verstehen können :S
Du willst also Praktisch von Zeile zu Zeile und die abgeglichenen Werte Praktisch abhacken?
Hi Jörg,
(13.03.2017, 15:41)Jockel schrieb: [ -> ]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
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
(13.03.2017, 15:48)Hardy12071991 schrieb: [ -> ]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)...
(13.03.2017, 15:57)Rabe schrieb: [ -> ]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.
(13.03.2017, 16:01)Crazy Tom schrieb: [ -> ]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..?
Hi Jörg,
da ist das Makro von Tom besser.
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
Hallo Tom, das ist ja ---> verrückt <---- ... das klappt, danke. Die andere Farbe kreige ich bestimmt alleine hin, oder ..?