Verschieben Sie je nach Zustand oder Anforderung eine bestimmte Grafik in den Vordergrund.
Sub Drehfeld4_BeiÄnderung() Dim logo Application.ScreenUpdating = False logo = "" logo = Worksheets("Tabelle1").Range("B1").Value ActiveSheet.Shapes(logo).Select Selection.ShapeRange.ZOrder msoBringToFront Range("a1").Select End Sub
