Hintergrundfarbe behalten VBA

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Static AlteZeile As Integer If AlteZeile 0 Then Range(Cells(AlteZeile, 1), Cells(AlteZeile, 2)).Interior.ColorIndex = xlColorIndexNone Range(Cells(Target.Row, 1), Cells(Target.Row, 2)).Interior.ColorIndex = 6 End If AlteZeile = Target.Row End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If CallByName(Selection, IIf(Val( _ Application.Version) > 11, "CountLarge", "Count"), VbGet) = 1 Then If Target "Überschrift" Then Range(Cells(AlteZeile, 1), Cells(AlteZeile, 2)).Interior.ColorIndex = _ xlColorIndexNone End If End If End Sub

Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If CallByName(Selection, IIf(Val( _ Application.Version) > 11, "CountLarge", "Count"), VbGet) = 1 Then If Target "Überschrift" Then Range(Cells(Target.Row, 1), Cells(Target.Row, 2)).Interior.ColorIndex = _ xlColorIndexNone End If End If End Sub

Hallo Matthias,

' **********************************************************************
' Modul: Tabelle1  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  highlightCell Range(Cells(Target(1, 1).Row, 1), Cells(Target(1, 1).Row, 2))
End Sub


' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public oldRange As Range
Public oldColor() As Long

Sub highlightCell(Target As Range)
  Dim rng As Range, lngIndex As Long
  If Not oldRange Is Nothing Then
    For Each rng In oldRange
      For lngIndex = 0 To UBound(oldColor)
        rng.Interior.Color = IIf(oldColor(lngIndex) = 16777215, xlNone, oldColor(lngIndex))
      Next
    Next
  End If
  Set oldRange = Target
  lngIndex = 0
  Redim oldColor(Target.Cells.Count - 1)
  For Each rng In oldRange
    oldColor(lngIndex) = rng.Interior.Color
    lngIndex = lngIndex + 1
  Next
  Target.Interior.Color = vbYellow
End Sub

« Gruß Sepp »

' ********************************************************************** ' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...) ' ********************************************************************** Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim bolSaved As Boolean If Not oldRange Is Nothing Then bolSaved = Me.Saved For Each rng In oldRange For lngIndex = 0 To UBound(oldColor) rng.Interior.Color = IIf(oldColor(lngIndex) = 16777215, xlNone, oldColor(lngIndex)) Next Next If bolSaved Then Me.Save End If End Sub

' ********************************************************************** ' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...) ' ********************************************************************** Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim rng As Range, lngIndex As Long, bolSaved As Boolean If Not oldRange Is Nothing Then bolSaved = Me.Saved For Each rng In oldRange For lngIndex = 0 To UBound(oldColor) rng.Interior.Color = IIf(oldColor(lngIndex) = 16777215, xlNone, oldColor(lngIndex)) Next Next If bolSaved Then Me.Save End If End Sub

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread