Anzeige
Archiv - Navigation
444to448
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
444to448
444to448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige