Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
288to292
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
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

erneutes Posting zur Function

erneutes Posting zur Function
07.08.2003 16:46:24
Mike E.
Hallo zusammen,
in der Hoffnung, ich habe mich bei meinem gestrigen Posting nur unklar ausgedrückt, versuche ich meine Frage hier nochmal neu zu formulieren:
wie kann ich es in einer Funktion anstellen, dass ich in Excel sowohl einen absoluten Wert in die Klammer schreiben kann, als auch einen Zellbezug.
Bsp.:
=MeineFunktion(A1)oder alternativ
=MeineFunktion(2000)
Eine Funktion zu schreiben, in der entweder das eine oder das andere möglich ist, ist kein Problem:

Function Bereich(Zelle As Range) As Double
Code
End Function

oder alternativ

Function Wert(Wert As Integer) As Double
Code
End Function

Vieleicht ist die Frage jetzt verständlicher.
Vielen Dank und 'tschuldigung für's Doppelposting.
Viele Grüße
Mike

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: erneutes Posting zur Function
07.08.2003 16:48:07
Michael Scheffler
Hi,
schau Dir mal optionale Parameter an.
Gruß
Micha

AW: erneutes Posting zur Function
07.08.2003 16:52:14
Mike E.
Hi Micha,
danke, ja - das war es!
Viele Grüße
Mike

AW: erneutes Posting zur Function
07.08.2003 16:49:17
Ramses
Hallo
ohne jetzt gross zu testen, probier mal folgendes

Function Bereich(myVal As Variant) As Double
If IsNumeric(myVal) then
... Wert Anweisung
Else
... Range Anweisung
End Function

Gruss Rainer

AW: erneutes Posting zur Function
07.08.2003 16:53:22
Mike E.
Hallo Rainer,
vielen Dank. Ich werde probieren.
Viele Grüße
Mike

AW: erneutes Posting zur Function
07.08.2003 17:08:34
Mike E.
Hallo rainer,
habs probiert und es funktioniert:

Function Hoch(Basis As Variant, Exponent As Integer) As Variant
Dim c As Object
If IsNumeric(Basis) Then
Hoch = Basis ^ Exponent
Else
For Each c In Basis
Hoch = c ^ Exponent
Next c
End If
End Function

Besten Dank und viele Grüße
Mike

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige