Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
688to692
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
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Din 1355 (an Ramses)

Din 1355 (an Ramses)
30.10.2005 22:13:02
molle
Hallo Ramses
Wo liegt der Fehler das ich die Kalenderwoche nicht angezeigt bekomme.
Entweder in Formel oder in Function.
mfg Molle
https://www.herber.de/bbs/user/27969.xls

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Din 1355 (an Ramses)
30.10.2005 22:18:56
Josef
Hallo Molle!
Schreib an den Anfgang des Moduls mit der Function mal "Option Explicit",
dann merkst du wo der Fehler liegt ;-)
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

AW: Din 1355 (an Ramses)
30.10.2005 22:37:35
Molle
Was Bedeutet Option Explicit
mfg Molle
Anzeige
AW: Din 1355 (an Ramses)
30.10.2005 22:42:30
Josef
Hallo Molle!
Mit "Option Explicit" erzwingst du die Explizite deklaration der Variabeln in
deinem Modul!
Und dann währe die gleich aufgefallen, das "F", wie Ramses es gepostet hat,
nirgends deklariert ist!
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Din 1355 (an Ramses)Danke Josef
30.10.2005 23:37:06
Molle
Habe es gleich geändert.
Warum hast du das geändert?
02.11.2005 21:49:48
Klaus-Dieter
Hallo Molle,
hättest du den Quelltext so gelassen, wie du ihn bei mir gefunden hast, dann wäre es auch gegangen.
Option Explicit

Function D_KALENDERWOCHE(dat As Date) As Integer
'Kalenderwoche nach DIN 1355
Dim a As Integer
a = Int((dat - DateSerial(Year(dat), 1, 1) + _
((Weekday(DateSerial(Year(dat), 1, 1)) + 1) Mod 7) - 3) / 7) + 1
If a = 0 Then
a = D_KALENDERWOCHE(DateSerial(Year(dat) - 1, 12, 31))
ElseIf a = 53 And (Weekday(DateSerial(Year(dat), 12, 31)) - 1) Mod 7 <= 3 Then
a = 1
End If
D_KALENDERWOCHE = a
End Function


Da war auch noch Option Explicit drin. ;-)
Viele Grüße Klaus-Dieter

Online-Excel
Anzeige
AW: Din 1355 (an Ramses)
30.10.2005 22:21:32
Ramses
Hallo
wieso wechselst du das Forum ?
Das ist deine Funktion

Function G_KALENDERWOCHE(dat As Date) As Integer
'Kalenderwoche nach DIN 1355
Dim g As Integer
g = Int((dat - DateSerial(Year(dat), 1, 1) + ((Weekday(DateSerial(Year(dat), 1, 1)) + 1) Mod 7) - 3) / 7) + 1
If g = 0 Then
g = G_KALENDERWOCHE(DateSerial(Year(dat) - 1, 12, 31))
ElseIf g = 26 And (Weekday(DateSerial(Year(dat), 12, 31)) - 1) Mod 7 <= 3 Then
g = 1
End If
G_KALENDERWOCHE = F
End Function

G_KALENDERWOCHE = F
In deiner Mappe finde ich allerdings nirgend "F"
Wenn schon, muss es heissen
G_KALENDERWOCHE = g
Gruss Rainer
Anzeige
AW: Er wechselt andauernd, o.T.
30.10.2005 22:37:29
Bernd
AW: Er wechselt andauernd, o.T. ( Danke an alle)
30.10.2005 22:39:53
m
Hier kann ich die Datei Hochladen.
mfg Molle

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige