Objekt löschen
15.08.2005 07:54:51
Klaus
Mit folgendem Code wird ein Kreis in die Zelle eingefügt, wenn ein Wert in der Zelle steht.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim sh As Shape
x = 26
For i = 1 To 71
x = x + 1
If Worksheets("Fertigungsprotokoll").Cells(x, 1).Value <> 0 Then
Cells(x, 1).Select
With Selection
Set sh = ActiveSheet.Shapes.AddShape(msoShapeOval, 12#, .Top + 2, 19.5, 19.5)
End With
sh.Line.ForeColor.SchemeColor = 10
sh.Fill.Visible = msoFalse
Set sh = Nothing
End If
Next
End Sub
wenn ich nun den Wert aus der Zelle lösche, soll der Kreis auch gelöscht werden.
Ich habe es mit dem Makrorekorder versucht, doch da wird direkt das Element angesprochen z.B. ("Oval 20").
Kann jemand helfen?
Gruss Klaus