Einmal mehr geht es mir darum, ein bestehendes Modul zu verändern. Diesmal soll aus einer "privaten" Prozedur schlicht eine "öffentliche", also eine Prozedur werden, die ich grundsätzlich ansprechen kann. Bisher steht im Tabellenblatt ("Name des Mitarbeiters") nachfolgende Anweisung:
Sub WinterArbeitszeit_TVöD()
Dim rng As Range
Range("D5:D35").ClearContents
For Each rng In Me.Range("A5:A" & Me.Cells(Rows.Count, 1).End(xlUp).Row)
Select Case Weekday(rng, 2)
'Festsetzung der täglichen Arbeitszeit (Mo-Do)
Case 1 To 4
rng.Offset(0, 3) = TimeSerial(8, 15, 0)
rng.Offset(0, 4) = TimeSerial(7, 30, 0) 'Beginn
rng.Offset(0, 5) = TimeSerial(16, 15, 0) 'Ende
'Festsetzung der täglichen Arbeitszeit (Fr)
Case 5
rng.Offset(0, 3) = TimeSerial(6, 0, 0)
rng.Offset(0, 4) = TimeSerial(7, 30, 0) 'Beginn
rng.Offset(0, 5) = TimeSerial(13, 30, 0) 'Ende
Case Else
End Select
Next
End Sub
Um nunmehr daraus eine "öffentliche", also allgemein gültige Prozedur daraus zu machen, nehme ich zunächst ja die "Me." Anweisung heraus. Soweit noch in Ordnung.
Versuche ich dann diese "Sub" anzusprechen, geschieht nichts, da diese nach Prüfung (F8) bei "Select Case Weekday(rng, 2)" aussteigt.
Tja, brauchte schooon wieder Hilfe.
Besten Dank für Eure Hilfe und Mühe.
Uwe