Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1280to1284
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

bedingte Formatierung mit Offset(?)

bedingte Formatierung mit Offset(?)
23.10.2012 14:08:15
Manuela
Hallo :),
ich habe ein Makro das mir mit diversen Offset-Aktionen meine Exceldatei formatiert. Dies funktioniert auch alles prima, allerdings bringt mich die bedingte Formatierung zum verzweifeln..
Was möchte ich?
In die aktive Zelle soll folgende bedingte Formatierung erhalten:
=ABS(selektierteZelle)>ZelleRechtsDaneben

ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=ABS( _
selektierteZelle)>ZelleRechtsDaneben"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 3
End With
ActiveCell.Offset(0, 1).Range("A1").Select
Kann mir dabei jemand behilflich sein? :-)
Danke und Gruß,
Manu

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

Betreff
Datum
Anwender
Anzeige
AW: bedingte Formatierung mit Offset(?)
23.10.2012 14:28:31
Matze,Matthias
Hi Manuela,
Selection.FormatConditions erforder vorher auch ein Select
vermute: ActiveCell.Select , so sehen wir nicht was noch alles passieren soll.

AW: bedingte Formatierung mit Offset(?)
23.10.2012 14:36:45
Manuela
Hallo,
die Zelle ist ja selektiert. Wenn ich die bedingte Formatierung Formula1:="=ABS(A1)>A2"~f~ eintrage gehts, aber ich möchte ja ~f~"=ABS(selektierteZelle)>ZelleRechtsDaneben".
Manu

AW: bedingte Formatierung mit Offset(?)
23.10.2012 14:41:24
Matze,Matthias
sicher das die selctet ist? active ja!
..,dann versuchmal mit ActiveCell.FormatConditions

AW: bedingte Formatierung mit Offset(?)
23.10.2012 15:24:15
Manuela
Hab's nun so gelöst:

Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=ABS($F" & ActiveCell.Row & ")>$G" _
& ActiveCell.Row
Danke,
Manu
Anzeige

318 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige