Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1080to1084
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

326 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige