#Wert erzwingen

Forumthread: #Wert erzwingen

#Wert erzwingen

16.10.2022 11:58:07

Andreas

Guten Tag Forum,
wie kann ich als Ergebnis einer Funktion #Wert zurückgeben, wenn bei einer Prüfung falsche Argumente eingegeben werden?
Beispiel:
Ich möchte nur Zahlen von 0 bis 9 als Eingabe zulassen. Falls eine andere Zahl eingegeben wird, soll als Ergebnis #Wert zurück gegeben werden?


Select Case Eingabe
Case 0 To 9
Eergebnis = Eingabe x 2
Case Else
Ergebnis = ? (was hier angeben, damit #Wert zurückgegeben wird?
End Select

Oder wie muss ich das machen ?
Vielen Dank und schönen Sonntag ...

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: #Wert erzwingen

16.10.2022 12:13:21

RPP63
AW: #Wert erzwingen

16.10.2022 13:09:21

Andreas
AW: #Wert erzwingen

17.10.2022 04:56:52

Wolfgang
@Wolfgang

17.10.2022 05:15:18

RPP63

AW: #Wert erzwingen

16.10.2022 12:13:21

RPP63

Moin!
UDF:


Function Doppelt&(Nummer&)
Select Case Nummer
Case 0 To 9: Doppelt = Nummer * 2
Case Else: Doppelt = CVErr(xlErrValue)
End Select
End Function

Ergibt im Tabellenblatt:

	A	B
1	Number	Doppelt
2	1	2
3	a	#WERT!
4	17	#WERT!
5	9	18

Zelle	Formel
B2	=Doppelt(A2)
B3	=Doppelt(A3)
B4	=Doppelt(A4)
B5	=Doppelt(A5)

Für die anderen Fehlerwerte:
http://www.cpearson.com/excel/ReturningErrors.aspx
Gruß Ralf

AW: #Wert erzwingen

16.10.2022 13:09:21

Andreas

vielen herzlichen Dank ...

AW: #Wert erzwingen

17.10.2022 04:56:52

Wolfgang

Hallo Andreas,
schau 'mal hier 'rein https://www.sekretaria.de/bueroorganisation/pc-tipps/typische-excelfehler/, Du musst also in Deinem Code mit dem übergebenen DatenTyp eine unzulässige Operation ausführen und das Ergebnis dieser Operation Deiner Variablen "Ergebnis" zuweisen.
Oder Du weist deinem "Ergebnis" einfach einen falschen Datentyp zu, Du gibst ja in Deinem Select-Block numerische Werte zurück, setz einfach Dein Fragezeichen in Apostroph, das wird als String vom Compiler interpretieren, fange aber den Laufzeitfehler mit "On error GoTo ErrorHandler" oder "On Error Resume Next", ich habe nicht ausprobiert ob und welche Variante durchläuft. War bisher froh, wenn gerade dieser Fehler nicht aufgetreten, ihn "gewaltsam" zu erzeugen, damit habe ich keine Erfahrung.
Gruß Wolfgang

@Wolfgang

17.10.2022 05:15:18

RPP63

Moin!
Die eindeutig gestellte Frage von Andreas lautete:
Wie kann ich als Ergebnis einer Funktion #Wert zurückgeben?
Das ist etwas anderes als die Fehlerbehandlung in einer Prozedur!
Deshalb: CVErr(XLCVError-Enumeration)
Im Objektkatalog findest Du diese Möglichkeiten:

Gruß Ralf

Beliebteste Forumthreads (12 Monate)

Forumthread: #Wert erzwingen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread