Problem Ansage aus PersonL.xlsb
01.03.2017 12:26:40
Dieter(Drummer)
den folgenden Code, der bisher korrekt funktionierte (Ansage des Datums und die Uhrzeit), geht nicht mehr. Es wird nur ein Kauderwelsch angesagt. Was ist falsch, oder woran kann es liegen?
Code in PersonL.xlsb, unter "Diese Arbeitsmappe"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set mobjApplicationClass = Nothing
End Sub
Private mobjApplicationClass As clsApplication
Private Sub Workbook_Open()
'Mx Zeitansage
Dim DatAnfang As Date
Application.Speech.Speak ("Es ist " & Format(Date, "DDD") & "der " & Format(Date, "DD MMM YYYY") _
& Format(Now, "hh:mm")) 'Application.Speech.Speak ("Jetzt ist es") & Format(Now, "hh:mm")
'Mx Zeitansage Ende
Set mobjApplicationClass = New clsApplication
End Sub
Gruß, Dieter(Drummer)