VBA - wenn Sonntag, dann...
24.01.2021 10:27:24
Peer
Ich rätsel schon seit langer Zeit, warum eigentlich einfacher Code nicht funktioniert und den Laufzeitfehler 13 bringt.
Ich möchte aus lbl_Kalendertag (Cells(ActiveCell.Row, 2)) den Wochentag auslesen und wenn er ein Sonntag ist, die Zeit zwischen txt_ArbZ_Beginn (Cells(ActiveCell.Row, 20)) und txt_ArbZ_Ende (Cells(ActiveCell.Row, 21)) in txt_SonnZ anzeigen lassen.
Dabei habe ich beim Change-Event von txt_ArbZ_Ende folgendes geschrieben
.
Was ist hier falsch?
Selbst
If Weekday(CDate(lbl_Kalendertag, vbMonday)) = 7 Then
Me.txt_SonnZ = Format(DateDiff("n", txt_ArbZ_Beginn, txt_ArbZ_Ende) / 60, "hh:mm")
Else
Me.txt_SonnZ = "00:00"
End If
hat kein Erfolg.Manchmal denke ich, ich komme in regelmäßigen Abständen wieder zum Anfang meiner Kenntnisse zurück. Das ist zum Verzweifeln.
Peer