Fehler wenn Schaltflächen ...
11.03.2021 09:32:18
Fred
ich habe ein Problem mit einer Funktionsausführung.
Die Funktion:
Public Function TA(Target, HZ, Optional Abstand = 8) As Long
Dim A
Dim i
Dim Mem As Long
Dim S As Long
Dim Z As Long
'On Error Resume Next
A = Split(Target.Text, " ")
For i = 0 To UBound(A)
If A(i) = "" Then A(i) = 0
Z = CLng(Split(A(i), "+")(0))
A(i) = Application.Evaluate(A(i))
If (Z 45 And HZ = "hz2_8") Then
If Mem 0 Then S = S - ((A(i) - Mem) Das Problem:
Wenn anscheinend Schaltflächen auf dem Blatt positioniert sind, zeigt die Funktion Fehlerwert an.
Meine Frage;
Kann ich zur Behebung etwas in den Optionen machen oder hilft ein "Code-Zusatz" ?
Beispiel
https://www.herber.de/bbs/user/144645.xlsb
Gruss
Fred