AW: VBA Wert aus Formelzelle
29.05.2020 08:54:22
UweD
Hallo
habe den Code verändert.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
Const APPNAME = "Worksheet_Change"
Dim RNG As Range, Zielzelle As Range, Zielwert As Integer
Set RNG = Range("B5:D5")
Set Zielzelle = Range("F5")
Zielwert = 1
If Not Intersect(Target, RNG) Is Nothing Then
Application.EnableEvents = False
Zielzelle = -(WorksheetFunction.Sum(RNG) = Zielwert) ' Wahr=-1 Falsch=0
End If
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number 0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _
& "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Wobei die Formel genau das gleiche macht und ausreichen würde
LG UweD