Code soll für die ganze AM funktionieren

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) If Not rngVorher Is Nothing Then rngVorher.Interior.ColorIndex = colVorher colVorher = Target.Interior.ColorIndex Target.Interior.ColorIndex = 6 'Hintergrund Gelb Set rngVorher = Target End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private rngVorher As Range Private colVorher As Long Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) If Not rngVorher Is Nothing Then rngVorher.Interior.Color = colVorher Set rngVorher = Nothing End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Not rngVorher Is Nothing Then rngVorher.Interior.Color = colVorher colVorher = Target.Interior.Color Target.Interior.Color = vbYellow 'Hintergrund Gelb Set rngVorher = Target End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Not rngVorher Is Nothing Then rngVorher.Interior.Color = colVorher If Not SaveAsUI Then Application.EnableEvents = False Save Application.EnableEvents = True rngVorher.Interior.Color = vbYellow Saved = True Cancel = True End If End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Not rngVorher Is Nothing Then rngVorher.Interior.Color = colVorher colVorher = IIf(Target.Interior.ColorIndex = xlNone, xlNone, Target.Interior.Color) Target.Interior.Color = vbYellow 'Hintergrund Gelb Set rngVorher = Target End Sub

Hi
anderere Ansatz.
füge in das Selection_Change-Event (egal ob für Tabelle oder Mappe) nur diese beiden Codezeilen ein:


  ThisWorkbook.Names.Add "Zeile_aktuell", "=" & Target.Row
ThisWorkbook.Names.Add "Spalte_aktuell", "=" & Target.Column

richte dann für jedes Tabellenblatt, auf welchem du die Markierung haben willst, eine Bedingte Formatierung ein mit der Regel:


=Und(Zeile()=Zeile_aktuell;Spalte()=Spalte_aktuell)

der Vorteil ist, dass die Bedigte Formatierung die normale Formatierung nur überdeckt, aber diese nicht verändert. somit bleibt die normale Hintergrundfarbe auf jeden Fall erhalten.
außerdem kannst du über die Bedingte Formatierung einfacher anpassen, in welchem Bereich das gelten soll und welche Farbe verwendet wird.
kleiner Nachteil, man muss die Bedingte Formatierung für jedes Blatt neu anlegen.
Gruß Daniel

Option Explicit Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim Bereich As Range Set Bereich = Range("A1:X30") If Not Intersect(Target, Bereich) Is Nothing Then Bereich.FormatConditions.Delete With Target .FormatConditions.Add Type:=xlExpression, Formula1:="=ZEILE(ZS)=" & Target.Row .FormatConditions(1).Interior.Color = RGB(0, 255, 255) End With Else Bereich.FormatConditions.Delete End If Set Bereich = Nothing End Sub Gruß Charly PS. Farbe auf Gelb RGB(255, 255, 0)

Beliebteste Forumthreads (12 Monate)

Code soll für die ganze AM funktionieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread