Kommentar ergänzen
15.03.2004 14:34:30
Sven
ich bräuchte nochmal die Hilfe von euch Spezialisten. :)
Ich habe einen Button der mir an irgendeiner Stelle in der Arbeitsmappe einen Kommentar erstellt. Nichts wildes, also!
Jetzt möchte ich diesen Kommentar aber irgendwann ergänzen. Nur leider haut das mit diesem Makro nicht so ganz hin und ich weiß nicht warum!
Kann mir jemand dabei helfen?
Sub Kommentar()
Dim Bereich As Range
Dim Zelle As Range
For Each Bereich In Selection.Areas
For Each Zelle In Bereich
Bereich.Interior.ColorIndex = 5
Next
Next
Dim Kom As Comment
Dim s As String
s = InputBox _
("Datum der MFU! (JJ/MM) Was war der Grund der MFU? (z.B.Generalüberholung) Prüfplanbezeichnung! (z.B. K1A080M0) Ergebnis! (z.B. PPK 1.86)", "Kommentar erfassen")
If s = "" Then Exit Sub
Set Kom = ActiveCell.AddComment
Kom.Text "" _
& s
With Kom.Shape.TextFrame
.Characters.Font.Name = "TimesNewRoman"
.Characters.Font.Size = 20
.AutoSize = True
End With
End Sub