Auswahl Zelle ganze Zeile grau Färben

Hallo Excelfreunde
Habe in der Recherche nichts gefunden, deshalb bitte ich um Eure Hilfe!!!!
Folgendes Problem: wenn ich mit den Pfeiltasten in Spalte A rauf und runter gehe, soll sich immer die komplette Zeile grau färben. Nach verlassen der Zelle soll die Zeile wieder den Originalzustand wieder erhalten Wichtig!!! in den zeilen werden durch bedingte Formatierungen einzelne Zellen in der Zeile andersfarbig gestaltet.
Ich brauche diese Vorgehensweise zur besseren Übersicht in der Tabelle, damit die Selektierte Zeile sofort optisch hervorgehoben wird.
Kann mir einer vielleicht in mein bestehendes Makro diese Codezeile mit einprogrammieren? Schaffe das mit meinen VBA Kenntnissen nicht allein.
'Bei Auswahl


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
On Error Resume Next
If Target.Column = 1 And Target.Row > 5 And Target <> "" Then
For Each rng In Range(Cells(Target.Row, 11), Cells(Target.Row, 256))
If rng.Value = Date Then
ActiveWindow.ScrollColumn = rng.Column
Exit Sub
End If
Next
End If
End Sub

Vielen dank schon mal im Vorraus
Gruß Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone If Target.Column = 1 And Target.Count = 1 And Target.Row > 5 Then Rows(Target.Row).Interior.ColorIndex = 15 End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range On Error Resume Next Cells.Interior.ColorIndex = xlNone If Target.Column = 1 And Target.Row > 5 And Target <> "" Then For Each rng In Range(Cells(Target.Row, 11), Cells(Target.Row, 256)) If rng.Value = Date Then ActiveWindow.ScrollColumn = rng.Column Rows(Target.Row).Interior.ColorIndex = 15 Exit Sub End If Next End If End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range On Error Resume Next Cells.Interior.ColorIndex = xlNone If Target.Column = 1 And Target.Row > 5 And Target <> "" Then Rows(Target.Row).Interior.ColorIndex = 15 For Each rng In Range(Cells(Target.Row, 11), Cells(Target.Row, 256)) If rng.Value = Date Then ActiveWindow.ScrollColumn = rng.Column 'Rows(Target.Row).Interior.ColorIndex = 15 Exit Sub End If Next End If End Sub

Hi,
ich habs jetzt doch mal getestet. Der Code macht genau das, was er soll....
wenn all die Bedingungen erfüllt sind
- aktive Zelle in Spalte A
- Zeile grösser 5
- Zelle nicht leer
dann wirds grau...sonst eben nicht
wenn dann auch noch im angegebenen Range das Datum steht, springt er in die Spalte.
Bei mir funzt das wunderbar.
Mein Tipp: Kopier den Code nach Word, ersetze target durch activecell (alle ersetzen) und kopier ihn als normalen Code (kein Ereigniscode !!!!) wieder in das Blattmodul.
Geh den Code dann Schritt für Schritt mit der F8-Taste durch und schau dir die Werte an (Mauszeiger draufstellen).
Vermutlich kannst Du das Problem dann selbst lösen, oder zumindest dein "Funktioniert aber nicht." durch eine genauere Angabe ersetzen.
Gruss Harald
P.S.: Bin erst wieder morgen früh online

Beliebteste Forumthreads (12 Monate)

Auswahl Zelle ganze Zeile grau Färben

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread