3 kleine VBA Scripte Analysieren
09.12.2018 12:18:27
Andreas
Ich habe auf Arbeit das Problem das Erbe von Excel Dateien übernommen habe, in denen jeweils 3 VBA Scripte laufen. Meine Kenntnisse reichen leider nicht aus um sagen zu können was diese Scripte tun. Da es sich um Arbeitsmappen wie Schichtplanungen, Urlaubsplanungen usw. handelt in denen viele Kalenderfunktionen verbaut sind vermute ich das die Scripte damit in Zusammenhang stehen. Wäre es möglich das mir jemand kurz und knapp sagen kann was die untenstehenden 3 Scripte Tun?
Danke für Eure Mühe, Gruß, Andreas
Public Function DINKW(Dat As Date) As Variant
Dim a As Integer, j As Integer
Application.ScreenUpdating = False
j = Year(Dat)
a = Int((Dat - DateSerial(Year(Dat), 1, 1) + _
((Weekday(DateSerial(Year(Dat), 1, 1)) + 1) Mod 7) - 3) / 7) + 1
If a = 0 Then
j = j - 1
a = Right(DINKW(DateSerial(Year(Dat) - 1, 12, 31)), 2)
ElseIf a = 53 And _
(Weekday(DateSerial(Year(Dat), 12, 31)) - 1) Mod 7
##########################################################Public Function KWDIN(Dat As Date) As Variant
Dim a As Integer, j As Integer
Application.ScreenUpdating = False
j = Year(Dat)
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 = Left(DINKW(DateSerial(Year(Dat) - 1, 12, 31)), 2)
j = j - 1
ElseIf a = 53 And _
(Weekday(DateSerial(Year(Dat), 12, 31)) - 1) Mod 7
###########################################################Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.PageSetup.LeftFooter = Format(Date, "dd.mm.yyyy")
End Sub