Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
340to344
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
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Problem bei selbstentwickelter Funktion

Problem bei selbstentwickelter Funktion
21.11.2003 10:16:05
John
Hallo zusammen,

ich habe eine Funktion geschrieben, die es dem Benutzer erlaubt, durch Eingabe des Formelsyntax z.B. "=VONBIS(A3;"ab";"cd";1)" den Wert einer Zelle "auseinanderzupflücken".
Funktioniert so weit auch ganz gut, die Funktion lautet:

Function VONBIS(bezug, sepvon, sepbis, block)

Meine Frage: Kann man die Funktion so konfigurieren, daß der letzte Zeil der Funktion (die Variable "block") optional ist?
Damit möchte ich erreichen, daß - wenn ich den Syntax "=VONBIS(A3;"ab";"cd")" eingebe (also ohne das ";1" am Ende) - die Formel nicht "#WERT!" ausgibt.
Meines Erachtens muß man die "block"-Variable dafür irgendwie deklarieren, z. B.

Function VONBIS(bezug, sepvon, sepbis, block as optional)

oder so... aber ich komm' einfach nicht dahinter!
Vielen Dank im Voraus!
Gruß,

John

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem bei selbstentwickelter Funktion
21.11.2003 10:30:49
Nayus
Hi,
folgendes Demo demonstriert die Verwendung optionaler Parameter:

Public 

Function mycalc(a As Long, b As Long, Optional c As Long)
Application.Volatile
If IsMissing(c) Then
mycalc = a + b
Else
mycalc = a + b + c
End If
End Function


Gruß,
Nayus
AW: Problem bei selbstentwickelter Funktion
21.11.2003 10:49:57
John
Funktioniert super, vielen Dank!
Gruß,

John
AW: Problem bei selbstentwickelter Funktion
21.11.2003 10:32:54
Nike
Hi,
mal so versuchen?

Function VONBIS(bezug As Range, sepvon As Integer, sepbis As Integer, Optional block As Integer)

Bye

Nike
AW: Problem bei selbstentwickelter Funktion
21.11.2003 10:50:41
John
Funktioniert super, vielen Dank!
Gruß,

John
Anzeige
AW: Optional Block As .... = ...
21.11.2003 10:34:25
Galenzo
Hallo,
bei Optionalen Argumenten gibst du einen Wert für DEN Fall vor, wenn dieser Parameter bei Aufruf der Funktion nicht angegeben wird.

function vonbis (bezug as range, sepvon as integer, sepbis as integer, optional block as integer=0)

Viel Erfolg!
AW: Optional Block As .... = ...
21.11.2003 10:52:47
John
Funktioniert super, vielen Dank! Hatte bloß den Fehler gemacht, daß ich in meiner ursprünglichen Version das "optional" HINTER die Variable geschrieben habe. Jetzt klappt's... :)
Gruß,

John

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige