Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
832to836
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
832to836
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Problem mit Funktionsargumenten

Problem mit Funktionsargumenten
27.12.2006 09:36:39
Micha
Hallo,
ich habe eine Funktion selbst geschrieben. Ein Funktionsargument ist ein String, welcher Stoffe beschreibt, z. B. N2 für Stickstoff. Excel erkennt natürlich N2 als Zelle! Wie kann ich hier Abhilfe schaffen? Hat jemand eine Idee? Die Schreibweise wollte ich allerdings nicht ändern.
Danke
Micha

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

Betreff
Datum
Anwender
Anzeige
AW: Problem mit Funktionsargumenten
27.12.2006 10:12:38
Galenzo
Du mußt den Typ des Parameters in der Funktion definieren. z.B. so:
Function test(strParam1 As String) As Integer
.....
Viel Erfolg!
/Galenzo
AW: Problem mit Funktionsargumenten
27.12.2006 11:28:24
Micha
Danke Galenzo!
Ich hatte es auch schon in dieser Form versucht, nur es funktioniert nicht.
Hat jemand noch eine andere Idee?
Danke
Micha
AW: Problem mit Funktionsargumenten
27.12.2006 11:31:10
Galenzo
poste mal deine Funktion...
(sonst kann man nur raten)
/Galenzo
AW: Problem mit Funktionsargumenten
27.12.2006 12:19:53
Micha
Also hier mal Minimalbeispiel:

Function Zrreal(Stoff As String) As Integer
If Stoff = "N2" Then
x = 56
Else
GoTo Fehler
End If
Zrreal = x
Exit Function
Fehler: MsgBox " Stoff wurde nicht richtig eingegeben!"
End Function

Für Stoff soll N2 eingegeben werden (ohne jeglichen Zellbezug).
Besten Dank für deine Hilfe
Gruss Micha
Anzeige
AW: Problem mit Funktionsargumenten
27.12.2006 12:36:50
Galenzo
..funktioniert doch:
Aufruf mit:
intTest = Zrreal("N2")
MsgBox intTest
Ausgabe: 56
..wo ist das Problem?
/Galenzo
AW: Problem mit Funktionsargumenten
27.12.2006 13:03:37
Micha
Hallo nochmal,
also die Eingabe funktioniert bei mir nicht (siehe obere Abbildung), setze ich die ganze Sache in diese "" dann passt es. Ich möchte aber die Eingabe wie in Abbildung 1 nur mit N2 tätigen ohne "".
Danke
Micha
Userbild
AW: Problem mit Funktionsargumenten
27.12.2006 14:04:17
Galenzo
Genau so ist die Funktionalität! Aber das ist doch auch Sinn und Zweck der Sache, oder?
Du kannst die Funktionsargumente - wie bei den anderen Funktionen auch - wahlweise direkt oder als Zellbezug eingeben. Damit Excel "erkennt", daß du den Wert direkt eingibst, mußt du die Anführungszeichen setzen - ansonsten "denkt" Excel es ist ein Zellbezug - und nimmt Zelle N2
/Galenzo
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige