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

Forumthread: Bedingte Formatierung mit Memory

Bedingte Formatierung mit Memory
24.06.2004 17:43:46
Lorenz
Hallo Excelianer!
Folgendes Problem!
In Zeile 3 steht fallweise der Wert "OK" in Spalte A bis AE. In der Zeile 2 sollte oberhalb des Wertes "OK" die Formatierung auf "rot" gestellt werden. Dies sollte aber nur dann geschehen, wenn in der selben Spalte der Wert "OK" überschrieben oder geändert wird.
z.B.
in A3 u. C3 u. G3 u. Y3 u. AA3 steht "OK"
somit soll nur A2 u. C2 u. G2 u. Y2 u. AA2 das Schriftformat auf rot wenn "OK" überschrieben oder gelöscht wird!
Vielen Dank im Voraus!
Gruss Lorenz
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bedingte Formatierung mit Memory
24.06.2004 17:53:49
Annett
Hallo Lorenz
Tabelle1
 ABC
2123
3OK123OK
Bedingte Formatierungen der Tabelle
ZelleNr.: / BedingungFormat
A21. / Formel ist =A3="OK"Abc
B21. / Formel ist =B3="OK"Abc
C21. / Formel ist =C3="OK"Abc
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Gruß Annett
Falls Code vorhanden wurde der unter Excel 2003 getestet
Anzeige
AW: Bedingte Formatierung mit Memory
Lorenz
Hallo Annett!
Leider nicht die Lösung für mein Problem!
es soll nämlich nur rot formatiert werden, wenn "OK" vorher in den besagten Zellen stand. die OK`s werden überschrieben somit nicht mehr vorhanden.
Grüße Lorenz
AW: Bedingte Formatierung mit Memory
24.06.2004 18:14:43
Annett
Hallo Lorenz
dann muß VBA her
Option Explicit
Dim Wert As String
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Bereich As Range If Target.Count > 1 Then Exit Sub Set Bereich = Range("A3,C3,G3,Y3,AA3") If Not Intersect(Target, Bereich) Is Nothing Then If Wert = "OK" And Target.Value <> Wert Then Cells(Target.Row - 1, Target.Column).Font.ColorIndex = 3 End If Set Bereich = Nothing End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = 1 Then Wert = Target End Sub
Schreibe jetzt aber nicht, wenn "OK" wieder eingeschrieben wird soll die Farbe wieder ändern. Das mußt Du dann selber einbauen.
Gruß Annett
Falls Code vorhanden wurde der unter Excel 2003 getestet
Anzeige
AW: Bedingte Formatierung mit Memory
Lorenz
Hallo Annett!
Funzt super!
"OK" soll natürlich nicht mehr eingeschrieben werden!
nochmals Danke u.
Gruss Lorenz
;

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