Hallo liebes Forum, hallo Ralf :)
Der Code funktioniert super und ich bin richtig happy.
Bei einer Sache hakt es leider und zwar wenn der Wert in F11 mit einer Formel "gezogen" wird. Ist der Wert "einfach reingeschrieben" funktioniert es, wenn nicht, sagt der Code immer, dass eine Abweichung vorliegt, auch wenn die Werte indentisch sind.
Weiß jemand von euch, wie man dies umgehen kann? Danke und viele Grüße.
Hier nochmal der Code:
With Worksheets("Tabelle2") 'Range
If Range("Tabelle1!F11").Value <> .Range("D" & WorksheetFunction.Match("Beitrag", .Columns("C:C"), 0)).Value Then
MsgBox "Abweichung." & vbCrLf & "Anpassung notwendig." Else
MsgBox "Keine Abweichung." & vbCrLf & "Werte stimmen überein."
End If
End With
End Sub
|