Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
856to860
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Benutzerdef. Funktion (Vereinfachung Fehlerabfrage

Benutzerdef. Funktion (Vereinfachung Fehlerabfrage
29.03.2007 22:03:02
Peter
Guten Abend
Ich habe des öftern Formeln nach dem Muster
WENN(istfehler(formel1);formel2;formel1)
Nun habe ich mir überlegt, dass eine eigene Funktion hilfreich wäre, bei der es nur zwei Argumente gibt. Wenn das erste Argument kein Fehlerwert ergibt, wird dieses Ergebnis ausgegeben - andernfalls wird das zweite Argument ausgegeben.
Die obige Formel würde dann lauten (wenn die Funktion KEINFEHLER heisst):
KEINFEHLER(formel1;formel2)
Kann mir jemand sagen, wie man eine solche Funktion definiert?
Vielen Dank, Peter

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Benutzerdef. Funktion (Vereinfachung Fehlerabf
29.03.2007 22:24:00
Uduuh
Hallo,
ohne die Frage zu beantworten: das gibt es m.W. in XL2007.
=Wennfehler(Formel;Alternative) oder so
Das nachzubauen ist aber sicher reizvoll.
Gruß aus’m Pott
Udo

AW: Benutzerdef. Funktion (Vereinfachung Fehlerabf
29.03.2007 22:29:00
Peter
Hallo Udo
Danke für die Mitteilung. Da ich wohl noch längere Zeit nicht ein xl2007 zur Verfügung habe, lasse ich die Frage gerne noch offen.
Beste Grüsse aus Bern, Peter
AW: Benutzerdef. Funktion (Vereinfachung Fehlerabf
29.03.2007 22:44:27
Josef
Hallo Peter,
die Funktion ist leicht nachgebaut, ich hab allerdings nicht getestet, ob sie immer richtig
funktioniert und wieviel Rechenleistung verloren geht.
Tabelle2

 ABCDE
11a 1a
22b 3c
33c 4Nix da

Formeln der Tabelle
ZelleFormel
E1=keinfehler(SVERWEIS(D1;$A$1:$B$3;2;0); "Nix da")
E2=keinfehler(SVERWEIS(D2;$A$1:$B$3;2;0); "Nix da")
E3=keinfehler(SVERWEIS(D3;$A$1:$B$3;2;0); "Nix da")
Excel Tabellen im Web darstellen  Excel Jeanie HTML
Hier die UDF.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function KEINFEHLER(Arg1 As Variant, Arg2 As Variant) As Variant

If Not IsError(Arg1) Then
    KEINFEHLER = Arg1
Else
    KEINFEHLER = Arg2
End If

End Function

Gruß Sepp
Anzeige
AW: Benutzerdef. Funktion (Vereinfachung Fehlerabf
29.03.2007 22:53:00
Peter
Hallo Sepp
Vielen Dank. Performance Test übernehme ich ...
Kleine Anschlussfrage: Wie müsste es lauten, wenn man drei Argumente übergeben wollte? Das erste, das nicht fehlerhaft ist, wird ausgegeben?
Vielen Dank für deine immer ausgezeichneten Beiträge. Ich schnuppere des öftern im Forum herum und habe schon viel Erstaunliches entdeckt!
Peter
AW: Benutzerdef. Funktion (Vereinfachung Fehlerabf
29.03.2007 23:12:00
Josef
Hallo Peter,
kein Problem.
Tabelle2

 ABCDEFG
11a  34c
22b  07Nada
33c  52b

Formeln der Tabelle
ZelleFormel
G1=keinfehler2(SVERWEIS(E1;$A$1:$B$3;2;0); SVERWEIS(F1;$A$1:$B$3;2;0); "Nada")
G2=keinfehler2(SVERWEIS(E2;$A$1:$B$3;2;0); SVERWEIS(F2;$A$1:$B$3;2;0); "Nada")
G3=keinfehler2(SVERWEIS(E3;$A$1:$B$3;2;0); SVERWEIS(F3;$A$1:$B$3;2;0); "Nada")
Excel Tabellen im Web darstellen  Excel Jeanie HTML
Public Function KEINFEHLER2(Arg1 As Variant, Arg2 As Variant, Optional Arg3 As Variant) As Variant
If IsError(Arg1) Then
    If IsMissing(Arg3) Then
        KEINFEHLER2 = Arg2
    Else
        If IsError(Arg2) Then KEINFEHLER2 = Arg3 Else KEINFEHLER2 = Arg2
    End If
Else
    KEINFEHLER2 = Arg1
End If
End Function

Gruß Sepp
Anzeige
AW: Benutzerdef. Funktion (Vereinfachung Fehlerabf
29.03.2007 22:55:13
Uduuh
Hallo Sepp,
manchmal denkt man viel zu kompliziert.
Das sollte man mal durchtesten.
Gruß aus’m Pott
Udo

Das kompliziertere Denken ist aber...
30.03.2007 05:25:30
Luc:-?
...spätestens dann erforderlich, Udo,
wenn man bspw. den o.g. Ansatz noch wesentlich erweitern will und generell (un)nötige Wiederholungen gleicher Formelteile bei WENN vermeiden will (es sei denn, man arbeitet mit Namen). Wie wär's da z.B. mit Platzhaltern u.ä... Der Code meiner udF zu diesem Thema ist jedenfalls wesentlich länger... ;-)
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige