Bedingte Formatierung - ungültiges Argument?

Guten Abend
Ich möchte dem Bereich "_A" (bezieht sich auf: =CW!$L$2:$L$180)
eine bedingte Formatierung mittels VBA-Code zuweisen.
manuelle Eingabe im Excel klappt:
bedingte Formatierung in Zelle L2 (dort beginnt auch der benannte Bereich "_A"
=ODER(UND(LINKS(G2)="C";L2>0);UND(LINKS(G2)="D";L2<0))
VBA-Code klemmt
....
Range("_A").FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OR(AND(LEFT(RC[-5])=""C"",RC>0),AND(LEFT(RC[-5])=""D"",RC<0))"
Range("_A").FormatConditions(1).Interior.ColorIndex = 22
....
Wenn ich den Code schrittweise (F8) abarbeite stopp der Code bei der ersten Zeile
Range("_A").FormatConditions.Add Type:= ....
und gibt die Meldung:
Laufzeitfehler '5':
Ungültiger Prozeduraufruf oder ungültiges Argument
Wenn ich stattdessen
Range("_A").FormatConditions.Add Type:=xlExpression, Formula1:="=ZS53"
einsetze, läuft alles prima. Daher gehe ich davon aus, dass irgend ein Argument nicht ganz o.k. ist.
Kann mir jemand verraten, was ich falsch mache? In Spalte L sind Zahlen enthalten, in Spalte G die Buchstaben D oder C oder ausgeschrieben Debit oder Credit.
Vielen Dank, Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Range("_A").Cells(1, 1).Select Range("_A").FormatConditions.Add Type:=xlExpression, Formula1:= _ "=OR(AND(LEFT(G2;1)=""C"";L2>0);AND(LEFT(G2;1)=""D"";L2<0))" Range("_A").FormatConditions(1).Interior.ColorIndex = 22

Hi Peter,
Leider geht's doch nicht ohne Select:


Sub Bereichsnamen()
Dim lngSpa As Long, lngAnf As Long, lngEnd As Long, lngSpaEnd As Long, lngDef As Long
Dim i As Integer
Dim Bereich As Range
Dim strNameAlt As String, strNameNeu As String
Dim lngB As Long, lngC As Long, lngV As Long
''lngDef = 1 'vorgesehene Namen in Zeile 1
''lngAnf = 2  'Bereiche beginnen bei Zeile 2
''lngSpa = 2  'Spalte B ist relevant zur Bestimmung der letzten Zeile
''lngEnd = Me.Cells(65536, lngSpa).End(xlUp).Row           'ermittelt letzten Eintrag in Spalte  _
B
''lngSpaEnd = Me.Cells(lngDef, 256).End(xlToLeft).Column
Dim tActAdr As String
Application.ScreenUpdating = False
tActAdr = ActiveCell.Address
ActiveSheet.Range("_A").FormatConditions.Delete
ActiveSheet.Range("_A").Cells(1, 1).Select
ActiveSheet.Range("_A").FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OR(AND(LEFT(G2)=""C"";L2>0);AND(LEFT(G2)=""D"";L2<0))"
ActiveSheet.Range("_A").FormatConditions(1).Interior.ColorIndex = 22
ActiveSheet.Range(tActAdr).Select
Application.ScreenUpdating = True
End Sub

GreetZ Renée

Beliebteste Forumthreads (12 Monate)

Bedingte Formatierung - ungültiges Argument?

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

180 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bedingte Formatierung - ungültiges Argument?

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

180 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread