VBA Probleme
21.04.2008 23:12:18
Nobi
habe im Forum einen Code gefunden mit dem sich die Feiertage als Kommentar anzeigen lassen. Das klappt auch fast. Die Kommentare wechseln nur nicht wenn ich das Jahr ändere. Das muß ich alles von Hand zu Fuß machen indem ich eine Schaltfläsche mache wo ich die Kommentare lösche und eine wo ich sie wieder setze. Vieleicht hab ich irrgentetwas falsch gemacht. Das Jahr ändere ich über ein Drefeld. Bitte um hilfe !!!
Der Code steht in einem Modul
Sub kommentar()
Dim ws As Worksheet
Dim ws1 As Worksheet
Dim fdatum As Date
Dim kom As String
Dim k&, s&, z&, z1&
Application.ScreenUpdating = False
Set ws = Worksheets("Tabelle1")
Set ws1 = Worksheets("Listen")
anz = ws1.Cells(65536, 3).End(xlUp).Row
For z = 2 To anz
k = 0
fdatum = ws1.Cells(z, 3)
kom = ws1.Cells(z, 4)
z1 = 2
Do While z1 s = 4
Do While s If fdatum = ws.Cells(z1, s).Value Then
ws.Cells(z1, s).ClearComments
ws.Cells(z1, s).AddComment kom
k = 1
End If
s = s + 1
Loop
z1 = z1 + 3
Loop
Next
Application.ScreenUpdating = True
End Sub
Sub kommentarlöschen()
Dim ws As Worksheet
Dim s&, z1&
Application.ScreenUpdating = False
Set ws = Worksheets("Tabelle1")
z1 = 2
Do While z1
s = 4
Do While s
ws.Cells(z1, s).ClearComments
s = s + 1
Loop
z1 = z1 + 3
Loop
Application.ScreenUpdating = True
End Sub
Der Code steht in einer Tabelle
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" Then
kommentarlöschen
kommentar
End If
End Sub