AW: Bedingte Formatierung mittels VBA
23.02.2006 09:12:40
Josef
Hallo!
So funktioniert es leider auch nicht:
Sub Farbe2()
Range("B2:B218").Select
'Columns("B2:B218").Select
Selection.FormatConditions.Delete
'1. Bedingung
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ODER(WOCHENTAG(B2;2)>5;ISTFEHLER(SVERWEIS(B2;[KVAB.xla]Feiertage!$A$2:$B$27;2;0))=FALSCH)"
Selection.FormatConditions(1).Interior.ColorIndex = 32
End Sub
oder
In der aktiven Mappe habe ich folgendes Makro aufgezeichnet:
Sub Makro1()
ActiveWorkbook.Names.Add Name:="Feiertage", RefersToR1C1:= _
"=[KVAB.xla]Feiertage!R2C1:R27C2"
ActiveWorkbook.Names.Add Name:="Feiertage", RefersToR1C1:= _
"=[KVAB.xla]Feiertage!R2C1:R27C2"
End Sub
Nach Durchführung des Makros war in der aktiven Mappe jetzt die Namensdefiniton "Feiertage" mit bezieht sich auf
=[KVAB.xla]Feiertage!$A$2:$B$27 enthalten.
Jetzt startete ich dieses Makro
Sub Farbe()
Range("B2:B218").Select
'Columns("B2:B218").Select
Selection.FormatConditions.Delete
'1. Bedingung
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ODER(WOCHENTAG(B2;2)>5;ISTFEHLER(SVERWEIS(B2;Feiertage;2;0))=FALSCH)"
Selection.FormatConditions(1).Interior.ColorIndex = 32
End Sub
nochmals und bekam den Laufzeitfehler 5:
ungültiger Prozeduraufruf oder ungültiges Argument.
Was machte ich bitte hier jetzt wieder falsch?
Josef