Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Formel für bedingte Formatierung ?

Formel für bedingte Formatierung ?
17.06.2009 07:31:04
Ernst
Hallo Vba Profis !
Hätte da wieder mal ein Frage und zwar "wie müsste eine Formel aussehen ?, sobald in Spalte A Range(A:6,A300) eine Zelle Aktiv ist diese zb.mit grünem Hindergrund dargestellt wird". bem verlassen der Zelle sollte die jeweils ursprüngliche Farbe wiederhergestellt werden.Beim Speichern ebenfalls.
geht das überhaupt per bedingter Formatierung ?
Wäre für Lösungsvorschläge dankbar.
lg.Ernst
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
VBA Lösung
17.06.2009 07:58:52
Tino
Hallo,
ich kann Dir nur eine VBA- Lösung anbieten.
kommt als Code in Tabelle1
Option Explicit 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
Dim Bereich As Range 
 
Const StandartFarbe As Integer = xlNone 'Standartfarbe 
Const AktiveFarbe As Integer = 3 'Farbe aktive Zelle 
 
Application.EnableEvents = False 
 
Set Bereich = Range("A6:A300") 'Bereich anpassen 
 
Bereich.Interior.ColorIndex = StandartFarbe 
 
If Not Intersect(Target, Bereich) Is Nothing Then 
  Target.Interior.ColorIndex = AktiveFarbe 
End If 
 
Application.EnableEvents = True 
 
End Sub 


Gruß Tino

Anzeige
AW: VBA Lösung
17.06.2009 08:10:31
Ernst
Hallo Tino !
Funktioniert perfekt !
Recht herzlichen Dank.
lg.Ernst
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige