2 Dinge
15.10.2002 13:05:06
smiley
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