Shapes in Form von Textfeldern überlagen
29.11.2023 11:36:21
mkloos
Ich hab jetzt ein wenig in euerm Forum immer mal wieder gestöbert und würde jetzt auch gern mal eine Frage stellen.
Es geht darum, dass ich eine Tabelle habe (5x3) mit jeweils einer Art Fremdwort pro Zelle. Ich würde gern mit Doppelklick auf eine Zelle dafür sorgen, dass ein Textfeld daneben erscheint mit der Definition des Fremdworts.
Die generelle Funktionsweise hab ich auch schon. Das Problem ist, dass die Textfelder alle übereinander liegen sollen. Jetzt bekomm ich Probleme damit, dass die Felder sich teilweise überlagern und Felder dann nicht immer automatisch im Vordergrund erscheinen.
Mein Ansatz: Wenn ich doppelt klicke, öffnet sich zB Textfeld 5, der Rest soll ausgeblendet werden. Ich habs aber nicht hinbekommen, dass einzubauen. Habt ihr hier eine Idee?
If Target.Address = "$R$20" Then
ActiveSheet.Shapes("Textfeld 7").Visible = Not ActiveSheet.Shapes("Textfeld 7").Visible
Cancel = True
End If
Das ist der Code für eine Aktion. Den hab ich dann 15x. Die Idee ist, "Klick R20 an, blende Textfeld 7 ein, blende alle anderen aus". Habt ihr eine Idee, wie ich das realisieren kann?
Danke euch :)