AW: kommentare nicht drucken aber doch....
Uduuh
Hallo,
bastel dir das mal in eine beforePrint-Prozedur ein:
Sub Indikator_rein()
Dim iInd As Integer, Zelle As Range
Dim x, y, a
a = 4.5
For Each Zelle In ActiveSheet.UsedRange.Cells
If Zelle.NoteText <> "" Then
x = Zelle.Left + Zelle.Width - a
y = Zelle.Top
ActiveSheet.Shapes.AddShape _
(msoShapeRightTriangle, x, y, a, a).Select
With Selection.ShapeRange
.Flip msoFlipHorizontal
.Flip msoFlipVertical
.Line.Visible = msoFalse
.Name = "shpIndikator_" & iInd
With .Fill
.Visible = msoTrue
.Solid
.ForeColor.SchemeColor = 8 '=schwarz, Rot=10
.Transparency = 0#
End With
End With
iInd = iInd + 1
End If
Next Zelle
Range("A1").Select
End Sub
Sub Indikator_raus()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If sh.Name Like "shpIndikator_*" Then sh.Delete
Next sh
End Sub
Gruß aus'm Pott
Udo