Modul
11.07.2004 15:01:48
Andreas
ich habe ein Problem und vielleicht könnt ihr mir helfen.
Ich habe diesen Code in mehrere Module eingefügt,die ich dann über Schaltflächen im ersten Tabellenblatt aktivieren kann.
Nun möchte ich aber auch im 2,3 und 4 Tabellenblatt mit Schaltflächen individuell arbeiten können. Ich habe schon probiert die Schaltflächen einfach zu kopieren und dann den Makro zuzuordnen.Leider klappt das nicht.
Habt ihr vielleicht eine Idee?
Hintergrund:ich kann mit diesem Code in einem Kalender die Wochentage bestimmen, indenen ich etwas notieren möchte.
Option Explicit
Sub etwas()
Dim s As Integer, z As Long
For s = 4 To 26 Step 2
For z = 3 To 33
If KW(Cells(z, s)) Mod 2 = 0 Then --> hier meldet er mir immer einen Fehler
If Weekday(Cells(z, s), 2) = 2 Then
Cells(z, s + 1) = "etwas"
End If
Else
If Weekday(Cells(z, s), 2) = 2 Or _
Weekday(Cells(z, s), 2) = 3 Then
Cells(z, s + 1) = "was anderes"
End If
End If
Next
Next
End Sub
Function KW(D As Date) As Integer
KW = Fix((D - Weekday(D, 2) - DateSerial(Year(D + 4 - Weekday(D, 2)), 1, -10)) / 7)
End Function