Arbeitszeiten eintragen

matthias · 2024-04-14T14:18:02+00:00

Hallo allerseits, ich bin neu hier und versuche gerade die Arbeitszeiten per Makro einzutragen. Ich habe die Datei von einem Kollegen erhalten, blicke allerdings nicht so perfekt durch. Vielleicht hat jemand "Lust" mich zu unterstützen, wenn ja, danke im Voraus https://www.herber.de/bbs/user/168711.xlsm mfg matthias

Hallo Matthias,

wo hast du denn diese Datei runtergeladen.
Die Datei ist defekt.
Ansonsten wäre für alle Monate nebst Feiertagen, die im Blatt "Feiertage" mit X gekennzeichnet sind ein möglicher Weg so:



Sub mw_Arbeitszeiten_eintragen()

    Dim i&, j&, Feiertage$

    With Tabelle13  ' Feiertage X erfassen

        For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row

            If LCase(.Cells(i, 3)) = "x" Then

                Feiertage = Feiertage & .Cells(i, 1) & "###"

            End If

        Next i

    End With

    For i = 1 To 12

        With Sheets(i)

            For j = 9 To 39

                If WorksheetFunction.Weekday(CDate(.Cells(j, 3)))  6 And InStr(1, Feiertage, .Cells(j, 3)) = 0 Then ' Mo-Fr ohne Feiertage

                    .Cells(j, 5) = Format(.Cells(2, 17), "##:##")

                    .Cells(j, 6) = Format(.Cells(2, 18), "##:##")

                End If

                If WorksheetFunction.Weekday(CDate(.Cells(j, 3))) = 6 And InStr(1, Feiertage, .Cells(j, 3)) = 0 Then ' Sa ohne Feiertge

                    .Cells(j, 5) = Format(.Cells(2, 17), "##:##")

                    .Cells(j, 6) = Format(.Cells(2, 19), "##:##")

                End If

                If InStr(1, Feiertage, .Cells(j, 3)) > 0 Then .Cells(j, 4) = "F"

            Next j

        End With

    Next i

End Sub

Wichtig: Um es einfach zu halten, habe ich die Modulnamen sauber durchnummeriert. Tabelle1 =Januar bis Tabelle12 =Dezember (Februar bis April waren dafür verkehrt beziffert)
Also den Monat der richtigen Modulnummer des Tabellenblattes zuordnen.

Gruß Uwe

Hallo miteinander,

ich habe euch eine ,2 unterschlagen - jetzt klingelts sicherlich.
richtig ist es so:



Sub mw_Arbeitszeiten_eintragen()

    Dim i&, j&, Feiertage$

    With Tabelle13  ' Feiertage X erfassen

        For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row

            If LCase(.Cells(i, 3)) = "x" Then

                Feiertage = Feiertage & .Cells(i, 1) & "###"

            End If

        Next i

    End With

    For i = 1 To 12

        With Sheets(i)

            For j = 9 To 39

                If WorksheetFunction.Weekday(CDate(.Cells(j, 3)), 2)  6 And InStr(1, Feiertage, .Cells(j, 3)) = 0 Then ' Mo-Fr ohne Feiertage

                    .Cells(j, 5) = Format(.Cells(2, 17), "##:##")

                    .Cells(j, 6) = Format(.Cells(2, 18), "##:##")

                End If

                If WorksheetFunction.Weekday(CDate(.Cells(j, 3)), 2) = 6 And InStr(1, Feiertage, .Cells(j, 3)) = 0 Then ' Sa ohne Feiertge

                    .Cells(j, 5) = Format(.Cells(2, 17), "##:##")

                    .Cells(j, 6) = Format(.Cells(2, 19), "##:##")

                End If

                If InStr(1, Feiertage, .Cells(j, 3)) > 0 Then .Cells(j, 4) = "F"

            Next j

        End With

    Next i

End Sub

Aber die Datei bleibt trotzdem defekt, da die Schleife alle 12 Tabellenblätter durchläuft und in Spalte B auch brav das F für Feiertage erscheint nur eben in Spalte E und F bleiben die Zellen leer. Vermutlich im XML ist da was nicht mehr so, wie es sein soll.

Gruß Uwe

Forumthread: Arbeitszeiten eintragen

29
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Arbeitszeiten eintragen

Forumthread: Arbeitszeiten eintragen

29 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

29
Beiträge zum Forumthread

Beiträge zu diesem Forumthread