bestehende Kommentare erweitern
13.01.2006 10:41:02
Gerald
Ich versuche schon geraume Zeit folgendes Problem zu lösen:
Ich habe ein Tabellenblatt (Projekte) in dem für Projekte jeweils ein Abgabedatum (Abgabetermin, und eine Projektbezeichnung steht.
In einem anderen Tabellenblatt (Termine) habe ich einen Jahreskalender gemacht.
Jetzt will ich die Projektbezeichnung aus dem Tabellenblatt "Projekte" für die jeweiligen Abgabetermine in das Tabellenblatt "Termine" in den Kalender als Kommentar eintragen lassen. Das geht solange, bis entweder ein Eintrag im Tabellenblatt "Projekte" gefunden wird, der einen Abgabetermin hat der schon mal in den Kalender unter "Termine" eingetragen wurde. Dann bricht es ab, weil unter diesem Datum schon ein Kommentar besteht. Auch funktioniert das nicht, wenn die Datumszelle in "Termine" noch keinen Kommentar hat. Schon jetzt danke ich für eure Unterstützung!!!
Ich habe folgendes probiert:
Sub AbgabeterminSuche()
Dim zelle As Range
Dim Bereich As Range
Dim sBegriff As Date
Dim ZeileMax As Integer
Dim NewComment As Comment
Dim alterKommentar As Comment
NewComment = "fällige Jobs:"
ZeileMax = Sheets("alleProjekte").Range("A65536").End(xlUp).Row
For i = 3 To ZeileMax
sBegriff = Sheets("alleProjekte").Cells(i, 8)
Set Bereich = Sheets("Termine").Range("A3:G100")
Set zelle = Bereich.Find(sBegriff, LookAt:=xlWhole, LookIn:=xlValues)
If zelle = sBegriff Then
zelle.AddComment NewComment
zelle.Interior.ColorIndex = 3
zelle.Font.ColorIndex = 2
'NewComment = NewComment & Chr(10) & " " & Sheets("alleProjekte").Cells(i, 1).Value & " - " & Sheets("alleProjekte").Cells(i, 3).Value
NewComment = Chr(10) & " " & Sheets("alleProjekte").Cells(i, 1).Value & " - " & Sheets("alleProjekte").Cells(i, 3).Value
' zelle.Comment.Delete
'zelle.AddComment NewComment
zelle.AddComment NewComment & Chr(10) & " " & Sheets("alleProjekte").Cells(i, 1).Value & " - " & Sheets("alleProjekte").Cells(i, 3).Value
zelle.Comment.Shape.Height = 150
End If
Next i
End Sub