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

Function übernommen, ist aber nicht verfügbar

Function übernommen, ist aber nicht verfügbar
08.11.2004 21:43:58
Isabell
Hallo Leute,
habe eine Function aus einer anderen Mappe übernommen, jedoch ist diese nicht
verfügbar.
Habe die Mappe nach dem einfügen gespeichert und neu aufgerufen.
Woran kann das liegen ?
Isabell

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Glaskugelfrage: Welche Function ? o.T.
Ramses
...
oT Ramses
yps
Du bist heute aber auch wieder kleinlich ;-)
AW: oT Ramses
yps
ähmm,
die frage dadrüber könnte eher deinem naturell entsprechen *grins*
lol : du warst schneller ;-)
y
.
? Muss ich das jetzt verstehen ;-) ? o.T.
Ramses
...
AW: Glaskugelfrage: Welche Function ? o.T.
08.11.2004 21:50:15
Isabell
Hallo Ramses,
eine

Function zur Berechnung des Osterdatums !

Function Osterdatum(jahr As Long) As Date
Dim a As Long, b As Long, c As Long, m As Long, s As Long
Dim m1 As Long, n1 As Long, D As Long, d1 As Long, e As Long
a = jahr Mod 19
b = jahr Mod 4
c = jahr Mod 7
m = Int(8 * Int(jahr \ 100) + 13) \ 25 - 2
s = Int(jahr \ 100) - Int(jahr \ 400) - 2
m1 = (15 + s - m) Mod 30
n1 = (6 + s) Mod 7
D = (m1 + 19 * a) Mod 30
If (D = 29) Then
d1 = 28
ElseIf (D = 28) And a >= 11 Then
d1 = D
Else
d1 = D
End If
e = (2 * b + 4 * c + 6 * d1 + n1) Mod 7
ostersonntag = CDate("21.3." + CStr(jahr)) + d1 + e + 1
End Function

Anzeige
AW: Glaskugelfrage: Welche Function ? o.T.
Ramses
Hallo
hier meine Standardfragen ;-):
1. Was heisst: "Die Funktion funktioniert nicht" ?
2. Wie wird die Function aufgerufen ?
3. Ist die Funktion in ein normales Modul kopiert worden ?
Gruss Rainer
AW: Glaskugelfrage: Welche Function ? o.T.
08.11.2004 21:58:52
Isabell
Ich möchte diese Function über den Funktions-Assistent aufrufen.
Ich habe die Function ins Tabellenblatt kopiert.
Isabell
AW: Glaskugelfrage: Welche Function ? o.T.
Sven
Die muss aber in ein Standardmodul nicht ins Tabellenmodul.
mfg Sven
AW: Glaskugelfrage: Welche Function ? o.T.
Ramses
Hallo
Diese Function arbeitet nur, wenn sie in einem normalen Modul der Arbeitsmappe steht.
VB-Editor starten
Modul einfügen
Dort den Code hineinkopieren
Das war sicher auch in der alten Mappe wo du den Code her hast auch so.
Intellisense sollte dann automatisch funkionieren,.... allerdings ist mir nicht ganz klar, für was der Assistent nötig sein soll, wenn ich bloss die Jahreszahl übergeben muss.
Gruss Rainer
Anzeige
AW: Glaskugelfrage: Welche Function ? o.T.
08.11.2004 22:12:43
Isabell
Hast Recht, da kommt bei mir der 01.01.2004 raus.
Hasz du ne bessere lösung ?
Isabell
Richtig schreiben... :-)
Ramses
Hallo
Die Funktion hat, wenn du sie nur kopiert hast, auch vorher nicht funktioniert.
Bei Verwendung von "Option Explicit" wäre das aufgefallen
Belegung
 AB
111.04.2004 
2  
Formeln der Tabelle
A1 : =osterdatum(2004)
 

Ersetze die Zeile
Ostersonntag = CDate("21.3." + CStr(jahr)) + d1 + e + 1
mit
Osterdatum = CDate("21.3." + CStr(jahr)) + d1 + e + 1
Gruss Rainer
Anzeige
AW: Richtig schreiben... :-)
08.11.2004 22:28:44
Isabell
O.K. das funktioniert.
Danke

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige