Wie kann ich die Selection deaktivieren?
Ramon
ich habe ein kleines Problem. Über eine Checkbox wird ein Rechteck über einem bestimmten
Zellbereich entweder weiß gefüllt oder auf "keine Füllfarbe" gesetzt, um diesen Bereich ein-
bzw. auszublenden.
Im Anschluss soll er wieder in eine bestimmte Zelle springen. Tut er auch, allerdins ist das
Rechteck dann immer noch markiert bzw. selektiert. Wie bekomme ich das hin? Erst wenn ich
"manuell" nochmal in eine Zelle klicke verwschwindet die Selection des Rechtecks.
Mit "set selection = nothing" oder so funktioniert's nicht. Hier mein Code:
Private Sub CheckBox11_Click()
Application.ScreenUpdating = False
If CheckBox11.Value = True Then Rows("2:22").EntireRow.Hidden = False: ActiveSheet.Shapes(" _
Rectangle 61").Select: Selection.ShapeRange.Fill.Visible = msoFalse
If CheckBox11.Value = False Then Rows("2:22").EntireRow.Hidden = True: ActiveSheet.Shapes(" _
Rectangle 61").Select: Selection.ShapeRange.Fill.Visible = msoTrue
Range("U39").Select
Application.ScreenUpdating = True
End Sub
Anzeige