Function Codeaufruf mit Speech.Speek
21.11.2021 09:55:28
Dieter(Drummer)
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