Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
852to856
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
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen Bedingte Formatierung

Zellen Bedingte Formatierung
09.03.2007 15:14:31
Walter
Hallo Zusammen,
ich habe folgende bedingte Formatierung mal aufgezeichnet, es soll die Zahl Rot und Fett werden, wenn
Diese K6< ist als A2.:
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=K6<$A$2"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 3
End With
ich möchte dies als Makro Zeile einsetzen.
Der Anfang ist "K6" und die letzte Zeile soll ermittelt werden, was in der Spalte "A" als letztes geschrieben steht.
Ich krieg das nicht hin!
mfg walter

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen Bedingte Formatierung
09.03.2007 15:29:48
Erich
Hallo Walter,
das sollte klappen (wenn A6 oder eine Zelle darunter nicht leer ist):
Sub BedForm()
Range("K6:K" & Cells(Rows.Count, 1).End(xlUp).Row).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=K6<$A$2"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 3
End With
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Mal wieder... Danke -)
09.03.2007 17:05:00
Walter
Hallo Erich ist, wie immer perfect!!!
Müßte mal bei Dir eine Übungsstunde nehmen,
nochmal schönes Wochenende,
mfg Walter
Anzeige

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige