Kommentar mitnehmen?
28.08.2004 11:54:23
Andreas
ich habe mir ein Makro erstellt,
der es mir ermöglicht die Kommentare an einen bestimmten Tag anzuhängen und wenn ich das Jahr ändere auch mitzunemhen.
Solange ich das Jahr vorwärts verändere habe ich auch keine Probleme aber sobald ich das Jahr zurückdrehe behält er den Kommentar an seinen Ursprungsort.
Kennt Ihr eine Lösung?
Option Explicit
Private Sub Worksheet_Calculate()
On Error Resume Next
Dim s As Integer, z As Long
For s = 1 To 2 Step 2
For z = 2 To 8
If Weekday(Cells(z, s), 2) = 1 Then
Cells(z, s + 1).AddComment "HALLO"
End If
If Weekday(Cells(z, s), 2) = 2 Then
Cells(z, s + 1).Comment.Delete
End If
If Weekday(Cells(z, s), 2) = 3 Then
Cells(z, s + 1).Comment.Delete
End If
If Weekday(Cells(z, s), 2) = 4 Then
Cells(z, s + 1).Comment.Delete
End If
If Weekday(Cells(z, s), 2) = 5 Then
Cells(z, s + 1).Comment.Delete
End If
Next
Next
End Sub