Hallo zusammen,
bei diesem Marko geht es um eine unterschiedliche farbliche Markierung der Zelle,
je nach dem ob eine Summe über mehrere Zellen eins ergibt.
Problem:
Es tritt der Fall auf, dass die "Then" Action, obwohl die Bedingung b=1 erfüllt ist übersprungen wird.
Beispielsweise funktioniert es, wenn Cells(5,2) den Wert 3 enthält und die Zellen (7,2) bis (7,4) die Werte 0,7 ; 0,2; und 0,1.
Bei einer anderen Reihenfolge der Werte (0,7; 0,2; und 0,1) hingegen wird die Then Bedingungen übersprungen. Die Message Box gibt zuvor richtig
den Wert von 1 wieder.
Ich bin ziemlich ratlos und weiß auch gerade nicht, wie ich mich dem Problem am besten nähern soll.
Sub CommandButtonClick()
Dim a As Double
Dim b As Double
a = Cells(5, 2).Value + 1
b = Application.WorksheetFunction.Sum(Range(Cells(7, 2), Cells(7, a)))
MsgBox b
If b = 1 Then
Range(Cells(7, 2), Cells(7, a)).Interior.ColorIndex = 40
Else
Range(Cells(7, 2), Cells(7, a)).Interior.ColorIndex = 3
End If
End Sub
Vielen Dank
|