Mit Hilfe dieses Makro möchte ich das Zeichen:"Europäische Union" überblenden, wenn es in meinem Zertifikat nicht gebraucht wird.
Sub weiss()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 431.25, 120#, 72.75, 62.25). _
Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
End Sub
(Mit Makroeditor aufgenommen):)
Über Sverweis wähle ich die Namen aus und in der Zelle O2 erfolgt die Auswertung.
Wenn O2=1 ist, soll das weiße Viereck an der im Makro zu ersehenden Stelle eingeblendet werden und wenn O2=0 ist soll es wieder verschwinden. Das Ganze muß aber wiederholbar sein, also wenn ich den ersten Namen auswähle und der Teilnehmer wird gefördet erscheint eine 0 in O2 und das Viereck deckt das Europasymbol nicht ab, wenn der Nächste Namen ausgewählt wird und der Teilnehmer wird gefördert, wird O2=0 und das Viereck muß verschwinden usw.
Ich hoffe Ihr verstehet mein Anliegen und könnt mir helfen.
Bitte es ist sehr wichtig für mich, Danke schon im Vorraus