Function Codeaufruf mit Speech.Speek

Guten Morgen Spezialisten/innen.
Bei öffnen der Datei soll die


Function Calendar_Week aufgerufen werden und gesprochen werden.
Mein Code in der Zeile Application.Speech.Speak.

Function Calendar_Week, SpeakAsync:=True funktioniert so nicht.
Fehlerhinweis "Fehler beim Kompilieren: Argument nicht optional".
Wie muss der Code richtig lauten, damit beim öffnen der Datei das komoplette Datum mit Angabe der KW gesagt wird.
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)


Sub Workbook_Open()
Sheets("Blutdruck").Select
Call FreieZelle_E 'Erste freie Zelle in Spalte E
'

Function auf rufen und sprechen
Application.Speech.Speak.

Function Calendar_Week, SpeakAsync:=True
Application.ScreenUpdating = False
End Sub

Private 

Function Calendar_Week(ByVal pvdtmDate As Date) As Integer 'Aktuelle Kalenderwoche
Dim dtmTempDate As Date
dtmTempDate = DateSerial(Year(pvdtmDate + (8 - Weekday(pvdtmDate)) Mod 7 - 3), 1, 1)
Calendar_Week = (pvdtmDate - dtmTempDate - 3 + (Weekday(dtmTempDate) + 1) Mod 7) \ 7 + 1
End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub n1() MsgBox Date & " " & KALENDERWOCHE_DIN(Date) End Sub Function KALENDERWOCHE_DIN(datum As Date) As Integer ' von Christoph Kremer, Aachen ' Berechnt die KW nach DIN 1355 Dim t& t = DateSerial(Year(datum + (8 - Weekday(datum)) Mod 7 - 3), 1, 1) KALENDERWOCHE_DIN = (datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1 End Function

Code: [Cc] Private Sub Workbook_Open() ' Sprich Datum und Woche Application.Speech.Speak "Heute ist der " & Date & " und die Kalenderwoche" _ & KALENDERWOCHE_DIN(Date), SpeakAsync:=True End Sub Function KALENDERWOCHE_DIN(datum As Date) As Integer ' von Christoph Kremer, Aachen ' Berechnt die KW nach DIN 1355 Dim t& t = DateSerial(Year(datum + (8 - Weekday(datum)) Mod 7 - 3), 1, 1) KALENDERWOCHE_DIN = (datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1 End Function

Private Sub Workbook_Open() ' Sprich Datum und Woche Application.Speech.Speak "Heute ist der " & Date & " und die Kalenderwoche" _ & KALENDERWOCHE_DIN(Date), SpeakAsync:=True '= TEXT(A1; "TT-MM-JJ") End Sub

Code: [Cc] Private Sub Workbook_Open() ' Sprich Datum und Woche Dim sArr() As String sArr = Split(" Sonntag Montag Dienstag Mitttwoch Donnerstag Freitag Samstag") Application.Speech.Speak "Heute ist " & sArr(WorksheetFunction.Weekday(Date)) _ & " der " & Date & " und die Kalenderwoche" _ & KALENDERWOCHE_DIN(Date), SpeakAsync:=True End Sub Function KALENDERWOCHE_DIN(datum As Date) As Integer ' von Christoph Kremer, Aachen ' Berechnt die KW nach DIN 1355 Dim t& t = DateSerial(Year(datum + (8 - Weekday(datum)) Mod 7 - 3), 1, 1) KALENDERWOCHE_DIN = (datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1 End Function

Beliebteste Forumthreads (12 Monate)

Function Codeaufruf mit Speech.Speek

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread