UDF, Rückgabewert Text anstelle Zahl
30.03.2007 07:54:01
Peter
Guten Tag
Untenstehende Funktion liefert mir gibt mir als Ergebnis das 1. Argument zurück, das nicht einen Fehler ergibt (Danke Josef Ehrensberger). Nun wollte ich nach dem endif etwas Weiteres einbauen, und zwar soll, wenn der Rückgabewert eine Zahl ist und diese kleiner als 10 ist ein Leerzeichen vorgeschoben werden.
Bei Debug.Print sehe ich, dass es funktioniert, denn wenn das Ergebnis 7.375 ist, wird dieses bei der Auswertung mit DEBUG.PRINT auch eingeschoben.
7.375
Wahr
7.375
Wahr
Was muss ich noch zusätzlich machen, dass der Rückgabewert ein Text wird? Im Moment trägt es mir lediglich die Zahl ein und die Leerzeichen verschwindet.
Danke für Feedback.
Peter
Public Function NOERROR(Arg1 As Variant, Arg2 As Variant, Optional Arg3 As Variant) As Variant
If IsError(Arg1) Then
If IsMissing(Arg3) Then
NOERROR = Arg2
Else
If IsError(Arg2) Then NOERROR = Arg3 Else NOERROR = Arg2
End If
Else
NOERROR = Arg1
End If
Debug.Print NOERROR
Debug.Print IsNumeric(NOERROR)
Debug.Print NOERROR * 1
Debug.Print NOERROR * 1 < 10
If IsNumeric(NOERROR) = WAHR And NOERROR < 10 Then NOERROR = " " & NOERROR
End Function