Office: (Office 2013) Aktion bei MouseOver

Hallo Leute,

ich würde gerne folgende Funktion in ein Excel-Sheet integrieren: Sobald man mit dem Mauszeiger in einen bestimmten Bereich (bestehend aus Spalten und Zeilen) "fährt", wird ein Textfeld eingeblendet, welches wieder verschwindet sobald man mit dem Cursor den Bereich wieder verlassen hat.
Eine vorangegange Internetrecherche hat mich zum der Exceldatei im Anhang geführt (http://www.herber.de/forum/archiv/1040to1044/1043497_MouseOver_ueber_Zelle.html). Dort wird das genau so umgesetzt wie ich es mir vorstelle. Allerdings habe ich Probleme nachzuvollziehen, was genau dort gemacht wurde bzw. wie ich das in meine eigene Datei integrieren kann. Der Thread ist leider von 2009, deswegen wäre es mMn. wenig hilfreich das Fass dort nochmal zu öffnen.
Stattdessen hoffe ich, dass einer von den Profis hier mir kurz erklären kann was davon ich wie in meine eigene Datei integrieren muss, damit es genauso funktioniert wie bei der Datei im Anhang.

Vielen Dank im Voraus :)

 

Hallo

da eine Zelle im Tabellenblatt kein Mouse-Move-Event hat
wurde in dieser Datei ein bissel getrickst
klick mal wenn du auf dem Tabellenblatt bist
in den Entwicklertools auf Bearbeitungsmodus
und danach klickst du mal irgendwo in eine angrenzende Zelle
zu dem umrandetem Bereich
dann siehst du dort ausgeblendete Labels
und diese Labels haben dann das Mouse_Move
wird eines der äußeren Labels "gemoved"
dann verschwindet die Textbox
"movest" du dagegen im Bereich wird das Mouse_Move-Event des Labels 1 ausgeführt
und die Textbox erscheint

MfG Tom

 

Ah okay, das trägt schon mal sehr zum Verständnis der ganzen Angelegenheit bei.

Wenn ich jetzt in meiner Excel-Datei ebenfalls Labels einfüge (und zwar in der gleichen Reihenfolge wie in der Vorlage aus Post #1) und den Code per Copy und Paste einfüge, erhalte ich den "Laufzeitfehler -2147024809 (80070057) Das Element mit dem angegebenen Namen wurde nicht gefunden.", wenn ich das Makro per MouseOver ausführen möchte.

Wenn ich dann auf "Debuggen" klicke, ist die Zeile "ActiveSheet.Shapes("Textfeld 1").Visible = True" gelb hinterlegt. Das macht auch soweit Sinn, als dass ich noch kein Textfeld erstellt habe, welches als Popup auftauchen soll.

Nun aber die Frage: Wie erstelle ich dieses Textfeld? Einfach über den Reiter "Einfügen" > Textfeld? Wenn ja, wie weise ich diesem Textfeld dann die Bezeichnung "Textfeld 1" zu?
Oder muss ich da auch über den Reiter "Entwicklertools" ein Steuerelement einfügen? Wenn ja, welches? Die Option "Textfeld" bei den Formularsteuerelementen ist leider ausgegraut und kann nicht ausgewählt werden. In den ActiveX-Steuerelementen finde ich keine Option "Textfeld"

Vielen Dank für die Hilfe, ich habe das Gefühl es fehlt nicht mehr viel :)

 

Hallo

da wirst du wohl das Textfeld aus dem Reiter "Einfügen" nehmen müssen

MfG Tom

 

Hi Tom,

ach ja, vielen Dank. Jetzt habe ich auch entdeckt, wo man die Bezeichnung des Textfeldes sehen kann. Also einfach im Debugger angepasst und nun funktioniert ist.

Jetzt werde ich mal schauen, ob ich das ganze auch mit 2 Labels gelöst bekomme (ein kleines um das Textfeld einzublenden und ein etwas größeres darunter liegendes um es wieder auszublenden). Ich hoffe das klappt.

Vielen Dank für die Hilfe auf jeden Fall.