2 Dinge

Das funktioniert nicht:

Private Sub ComboBox261_Click()

Sheets("Organigramm2").Activate
ActiveSheet.Shapes("Rechteck 23").Select
Selection.ShapeRange.ZOrder msoSendtofront
End Sub

So funktioniert es aber eben nur auf der gleichen Tabelle wo das DD-Menü 261 ist.

ActiveSheet.Shapes("Rechteck 23").Select
Selection.ShapeRange.ZOrder msoSendtofront
End Sub