Thema Datum  Von Nutzer Rating
Antwort
Rot Aktive Zeile einfärben
 27.11.2017 14:38:53 Boernie
NotSolved
27.11.2017 15:08:22 Gast63867
NotSolved

Ansicht des Beitrags:
Von:
Boernie		 Datum:
27.11.2017 14:38:53		 Views:
1440		 Rating:
     
Antwort:
  Ja
Thema:
Aktive Zeile einfärben

Hallo,
ich habe mir einen Code zusammengebastelt. Hier wird die aktive Zeile eingefärbt. Leider hat der Code noch einen Fehler:
- beim ersten Zellenwechsel nach dem Start bleibt die vorher markierte Zeile farbig. Diese sollte aber wieder entfärbt werden.

Kann mir hier jemand helfen?

Mein Code:

Option Explicit

Dim rngVorher As Range
Dim colVorher As Integer
Private Sub Worksheet_Deactivate()
  If Not rngVorher Is Nothing Then rngVorher.Interior.ColorIndex = colVorher
  Set rngVorher = Nothing
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  Static AlteZeile As Integer

  If Not rngVorher Is Nothing Then rngVorher.Interior.ColorIndex = colVorher
    
  If AlteZeile <> 0 Then
    Range(Cells(AlteZeile, 1), Cells(AlteZeile, 29)).Interior.ColorIndex = xlColorIndexNone
    Range(Cells(Target.Row, 1), Cells(Target.Row, 29)).Interior.ColorIndex = 22
  End If

  Set rngVorher = Target
   colVorher = Target.Interior.ColorIndex
    Target.Interior.ColorIndex = 6  'Hintergrund Gelb

  AlteZeile = Target.Row

End Sub

Vielen Dank
Boernie

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Aktive Zeile einfärben
 27.11.2017 14:38:53 Boernie
NotSolved
27.11.2017 15:08:22 Gast63867
NotSolved