Select o not Select, das ist die Frage
ing.grohn
bei der Arbit mit der "Bedingten Formatierung" ist mir etwas merkwürdiges aufgefallen:
Lasse ich folgenden Code mit Select laufen, ist das Ergebnis für den Eintrag immer korrekt:Istfehler(C34)
ohne select sthet da imer was wildes drin.
Kann mir jemand den Grund erklären?
Hier der Code:
Sub Makro3()
Dim Formel As String
Dim FormelA1 As String
'Range("C34").Select
'Cells(34, 3).Select
'With Cells(34, 3)
With Range("C34")
.Formula = Formel
.FormatConditions.Delete
.FormatConditions.Add _
Type:=xlCellValue, _
Operator:=xlEqual, _
Formula1:="1"
.FormatConditions(1).Interior.ColorIndex = 33
.FormatConditions.Add _
Type:=xlCellValue, _
Operator:=xlEqual, _
Formula1:="0"
.FormatConditions(2).Interior.ColorIndex = 3
.FormatConditions.Add _
Type:=xlExpression, _
Formula1:="=ISTFEHLER(C34)"
.FormatConditions(3).Interior.ColorIndex = 22
End With
End Sub
Für eine Antwort vielen Dank
Mit freundlichen Grüßen
Albrecht