Private Sub ComboBox261_Click()
Worksheets("Organigramm2").Select
ActiveSheet("Rechteck 23").Select
Selection.ShapeRange.ZOrder msoSendToFront
End Sub
....
(ComboBox262-280)
....
Private Sub ComboBox261_Change()
If ComboBox261 = "1" Then Worksheets("Organigramm2")("Rechteck 1").Select
Selection.ShapeRange.ZOrder msoSendToFront
....
wenn ihr mir den Fehler sagen könnt kann ich den ganzen Code überarbeiten, und dann sollte alles fehlerfrei laufen.
jetzt schon mal danke für eure Hilfe.