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

Function/ Nutzung im Excelsheet

Function/ Nutzung im Excelsheet
06.08.2003 18:48:32
Mike E.
Hallo zusammen,
ich habe folgende Funktion, die sich in Excel auch prima nutzen lässt, wenn ich einen Bereich dafür nutze (so hab ich es ja auch deklariert...). Wie kann ich vorgehen, wenn ich in die Klammer hinter den Funktionsnamen einen Wert eingeben möchte?
Für jede Hilfe bin ich dankbar.
Hier die Funktion TagName:

Function TagName(Datum As Range) As Variant
Dim c As Object
For Each c In Datum
TagName = Format(c, "dddd")
Next c
End Function

Viele grüße
Mike

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Halbe Lösung: Function/ Nutzung im Excelsheet
06.08.2003 18:59:14
Mike E.
Hallo zusammen,
eine halbe Lösung habe ich nun bereits:

Function TagName1(Datum As Date) As Variant
TagName1 = Format(datum1, "dddd")
End Function

Allerdings:
wie kann ich es anstellen, dass sowohl Bereichsauswahl, als auch Werteingabe in den Klammern funktioniert? denn so geht es nicht:

Function TagName1(Datum As Date, datum2 As Range) As Variant
Dim c As Object
For Each c In datum2
TagName1 = Format(c, "dddd")
Next c
TagName1 = Format(Datum, "dddd")
End Function

Vielen Dank und viele Grüße
Mike

Anzeige
Fehler im Code des letzten Postings
06.08.2003 19:03:52
Mike E.
Hallo,
vorheriges Postin beinhaltete einen Fehler. Hier nochmal neu:
Hallo zusammen,
eine halbe Lösung habe ich nun bereits:

Function TagName(Datum As Range) As Variant
Dim c As Object
For Each c In Datum
TagName = Format(c, "dddd")
Next c
End Function

Allerdings:
wie kann ich es anstellen, dass sowohl Bereichsauswahl, als auch Werteingabe in den Klammern funktioniert? denn so geht es nicht:

Function TagName1(Datum As Date, datum2 As Range) As Variant
Dim c As Object
For Each c In datum2
TagName1 = Format(c, "dddd")
Next c
TagName1 = Format(Datum, "dddd")
End Function

Vielen Dank und viele Grüße
Mike

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige