Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1076to1080
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
1076to1080
1076to1080
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Keine #Wert Ausgabe in VBA

Keine #Wert Ausgabe in VBA
18.05.2009 21:48:10
helmi
Hallo zusammen
Ich habe eine Frage zu VBA.
Ich habe mir eine Funktion in VBA geschrieben, welche ab und zu als Resultat #Wert ausspuckt.
Nun möchte ich gerne wissen, wie man in der Funktion noch etwas einbauen kann, so dass er im Falle des #Wert zum Beispiel eine leere Zelle ausgibt (""). Ich suche sozusagen das Pendant zu wenn(istfehler();dann;sonst).
Gruss
helmi

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

Betreff
Datum
Anwender
Anzeige
schau Dir die IsError-Funktion an ... oT
18.05.2009 21:54:33
Matthias
AW: schau Dir die IsError-Funktion an ... oT
18.05.2009 22:01:16
helmi
hmmm
ich habs folgendermassen probiert, das funktioniert aber nicht:
if iserror(meineFunktion) then
meineFunktion=""
else
end if
AW: Keine #Wert Ausgabe in VBA
18.05.2009 22:05:13
Daniel
Hi
die Saubere Lösung wäre, mal durchzutesten, was den Fehler verusacht und dann eben entsprechende IF-Abfragen den Fehler abzufangen, beispielsweise du hast in der Formel ne Divison:

Function DeineFormel(x as Double) as variant
DeineFormel = 1/x
End function


dann könnte man das so abfangen:


Function DeineFormel(x as Double) as variant
If x = 0 then
DeineFormel = ""
else
DeineFormel = 1/x
end if
End function


Gruß, Daniel

Anzeige
AW: Keine #Wert Ausgabe in VBA
18.05.2009 22:11:13
helmi
es hat damit zu tun, dass eine der eingabeparameter (funktion(a,b,c) wobei z.B. b="" ist) nicht vorhanden ist.
dann habe ich ein Problem, dass kei vernünftiger Wert für meine Funktion herauskommt
AW: Keine #Wert Ausgabe in VBA
18.05.2009 22:46:27
Daniel
Hi
was heißt "nicht vorhanden"?
ist die entsprechende Zelle leer oder gibt der Anwender nicht 3 sondern nur 2 oder weniger Parameter in der Funktion an?
wenn die Entsprechende Zelle leer ist, dann kannst du das mit der Funktion IF ISEMPTY(a) prüfen.
Gruß, Daniel
Kannst Du den Code der UDF posten ?
18.05.2009 22:46:47
NoNet
Hallo helmi,
zu leichteren Analyse wäre es hilfreich, wenn Du den Code Deiner FUNCTION, den Aufruf und die Werte der übergebenen Parameter posten würdest.
Falls die FUNCTION nicht immer alle Parameter benötigt, dann könntest Du diese OPTIONAL definieren :
Function DeineFunktion(intA, Optional intB, Optional intC) as Integer
=> der erste Parameter MUSS immer angegeben werden, der 2. und 3. Parameter nicht unbedingt, z.B. so :
MsgBox DeineFunktion(3) 'Funktioniert
MsgBox DeineFunktion(3, 4) 'funktioniert
MsgBox DeineFunktion(3, 4, 5) 'funktioniert
MsgBox DeineFunktion() 'funktioniert nicht
In der FUNCTION kannst Du überprüfen, welcher Parameter angegeben wurde :
If IsMissing(intB) then 'Wenn Parameter 2 nicht angegeben wurde
Oder falls der Typ der Parameter nicht vorbestimmt ist :
If varType(intB)=vbString then 'Wenn Parameter 2 ein Text ist
Und falls (beliebig) viele unterschiedliche Parameter übergeben werden können, dann schau dir auch mal die Onlinehilfe zu PARAMARRAY an.
Gruß, NoNet
Anzeige
Langer Rede kurzer Sinn - hier mal ein Bsp...
19.05.2009 01:24:52
Luc:-?
...für das, was gemeint ist, Helmi...

Function Splitt(Bezug, Optional ByVal Trenner As String = " ", Optional ByVal FDarst = "")
If IsError(Bezug) Then Splitt = FDarst Else Splitt = Split(Bezug, Trenner)
End Function


Das liefert dann im TabBlatt bspw Folgendes...


=Splitt(#NV)
#NV 	=Splitt(#NV;;#NV)
FALSCH	=Splitt(#NV;;FALSCH)


Was die udFkt sonst noch kann, wirst du schon rauskriegen... ;-)
Gruß Luc :-?

301 Forumthreads zu ähnlichen Themen

Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
Anzeige
Dynamische Wertänderung in VBA
Timo

Hallo,
ich habe ein kleines Problem und möchte vorab sagen, dass ich ein wirklicher VBA Laie bin. Ich habe folgendes Makro aufgenommen (nicht selbst geschrieben, da ich das nicht kann):
Sub updatechartloanvolumetrend()
If Range("C10") = "19981998" Then
ActiveSheet.ChartObjects("...
05.09.2008 09:38:00
Thread-ID: 1007590
3 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Anzeige
Kopieren VBA anstatt einer Formellösung
Bernhard

Hallo liebe Excel-Freunde,
wer kann mir helfen, eine Aufgabenstellung, die ich zwar mit Formeln gelöst habe mit einem VBA Makro zu lösen. Wie kopiere und paste ich Werte aus einer Tabelle1 in eine Tabelle2, abhängig davon ob ein Wert in einer bestimmten Spalte ist. Das Beispiel habe ich zum...
24.09.2008 17:28:00
Thread-ID: 1012129
9 Beiträge
Code für Groß- und Kleinschreibung VBA
Urmila

Hallo,
ich habe folgenden Code (Teil vom Code)
If Cells(iRow, 1).Value = "x" Then
Hierbei erkennt Excel nur das kleine x und nicht das große X. Wie kann man das umgehen, dass Groß- und Kleinschreibung nciht geachtet werden sollen bzw beachten werden sollen?
LG
Urmila
09.10.2008 14:16:51
Thread-ID: 1015349
3 Beiträge
Mit VBA ein anderes Makro ändern
Markus

Hallo zusammen,
besteht die Möglichkeit, dass man mittels Makros ein anderes Makro bzw. den Code für Worksheet_Activate ändern kann?
Problem 1
Sub Worksheet_Activate() 'ScrollArea = "C3: Bf32" ScrollArea = "" End Sub
Es soll danach wie folgt aussehen (Änderung in Zeile 1 und...
12.10.2008 14:24:49
Thread-ID: 1015855
7 Beiträge
zählenwenn in VBA-Array
David

Hallo zusammen.
folgendes Makro:
Sub finden() Dim P(12), C(9) P(1) = Application.WorksheetFunction.Choose(Int(Rnd() * 3) + 1, "A1", "A2", "A3") ... (das packe ich später noch in eine Schleife) P(12) = Application.WorksheetFunction.Choose(Int(Rnd() * 3) + 1, "B1", "B2", "B3") C(1) = Ap...
14.10.2008 09:14:00
Thread-ID: 1016232
8 Beiträge
VBA Zellen prüfen, txt kopieren, einfügen in txt
Stevie

Hallo Zusammen,
da ich kaum Erfahrung im Bereich VBA habe hätte ich gerne mal folgendes Problem :)
Ich habe folgenden Code der Variablen in einer Textdatei ersetzt, eine neue Datei speichert und die File anschleißend mittels Batchrutine an einen Drucker schickt.
Hier der bisherige C...
06.11.2008 09:56:19
Thread-ID: 1022167
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
12
2
2
4
5
8
2
6
7
2
2
2
2
3
3
15
6
4
4
4
3
4
2
4
7