Userform öffnen und Shape Markierung nach Klick aufheben
19.10.2024 15:51:23
Dieter(Drummer)
Mit Klick ausf Shape in Tabellenblatt wird UserForm geöffnet, aber die Markierung des geklickten Shapes nicht aufgehoben.
Ich möchte nicht die Zelle A1 selectieren.
Wie muss der passende Code lauten damit die Markierung des Shapes entfernt wird und UserForm aktiviert bleibt?
Mit der Bitte um Hilfe,
grüßt,
Dieter(Drummer)
Hier 2 Codevarianten UserForm_Initialize, die funktionieren, möchte aber nicht Zelle A1 selectieren:
Private Sub UserForm_Initialize()
ActiveSheet.Shapes.Range(Array("Ellipse 2")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = ""
[A1].Select
End SubVariante2, funktioniert, aber die Markierung des Shapes geht nicht weg:
Private Sub UserForm_Initialize()
ActiveSheet.Shapes.Range(Array("Ellipse 2")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = ""
SendKeys "{ESC}"
End SubAnzeige