Office: (Office 2010) Info einblenden wenn der Cursor über eine Zelle fährt

Hallo Forum
Ich habe ein Tabellenblatt in welcher die Spalten A bis JG verwendet werden.
Das Tabellenblatt ist stellenweise mit einem Passwort schreibgeschütz, zum anderen gibt es Zellen mit einer Listenauswahl. Die Spalten von JQ bis alle sind ausgeblendet.

Nun möchte ich in der Zeile 33 von Spalte C bis JG einen Komentar einfügen, immer mit dem gleichen Inhalt. Soweit so gut, das klappt alles bestens!

Das Problem ist nur: Wenn ich Spalten ausblenden möchte, erhalte ich den Hinweiss/Fehler 400.

Meine Fragen:
1. Was will mir Excel hier mitteilen?
2. Wie kann ich den Fehler eliminieren?
3. Gibt es andere Möglichkeiten, einen Text/eine Info anzeigen zu lassen, wenn man über die Zeile 33 Fährt?

Besten Dank für jede hilfreiche Unterstützung!
CLG

:)

 

Hi,

was sagt der Debugger genau zum Fehler 400?

 

Hi Beverly,

Leider habe ich nur die graue Popup-Box mit dem Eintrag 400 und dem roten Ball mit dem weissen Kreuz, also lediglich einen Hinweis und nicht einmal eine Fehler-Nummer.

CLG

 

Hi,

dann kann ich leider nur empfehlen: benutze Tante Google zum Begriff "Excel VBA Fehler 400", denn der Fehler kann sehr viele Ursachen haben - musst du halt schauen, welcher bei dir zutreffend sein könnte.

 

Hallo Beverly,

Hab ich in der Zwischenzeit gemacht: Die Tante Google findet wirklich unzählige möglichkeiten, die als Ursache in Frage kommen könnten ..... zu viele!

Darum mein Lösungsansatz: Eine andere Form der Anzeige einer Info als mit einen Kommentar zu realisieren. Beispielsweise mit einem VBA-Skript, der eine Info Einblendet, sobald der Cursor über die Zeile 33 wandert.

Hast du da eine Idee?

CLG

 

Hi,

du könntest bei Klick in die Zelle eine Routine starten die z.B. eine TextBox einblendet mit den geünschten Informationen.

 

Hallo,

Ja, genau so etwas habe ich mir vorgestellt.
Wenn möglich sollte diese TextBox erscheinen, sobald man den Cursor über der Zeile 33 stehen hat und sobald die Zeile 33 wieder verlassen wird auch die TextBox automatisch wieder verschwindet.

Geht das?

CLG

 

Hi,

es geht, wenn man die Zelle anklickt - es geht NICHT, wenn der Cursor die Zelle nur überfährt.

 

Hi Beverly

Ok, anklicken ist natürlich auch gut!
Kanst du mir da helfen?

Schöne Grüsse
CLG

 

Hi,

füge ein Textfeld aus den Formen ein und trage deinen Anzeigezext ein. Kopiere außerdem folgenden Code ins Codemodul des Tabellenblattes:

Code:

Ichhabe ein paar Kommentare in den Kode eingefügt, damit du nachvollziehen kannst, was passiert.

 

Hi Beverly

Coole Sache und es funktioniert genau so wie ich es mir gewünscht habe!
Besten Dank für die Hilfe, wünsche einen schönen Tag.

Gruss CLG

 

Hi Beverly

Nun habe ich ein neues Spielzeug erhalten und mit diesem, werden auch gleich neue Begehrlichkeiten wach. *Smilie

Frage: Besteht auch die Möglichkeit, ein Textfel dynamisch mit dem Inhalt von einer anderen Zelle anzeigen zu lassen?

Beste Grüsse, CLG

 

Hallo,

du kannst in einem Textfeld die Formel
=A1
verwenden und so den Inhalt von A1 (bzw. jeder beliebigen anderen Zelle) im Textfeld anzeigen lassen.

Allerdings schreibst du die Formel nicht in das Textfeld sondern löscht zunächst alles im Textfeld. Dann klickst du in das Textfeld, so als ob du dort etwas schreiben wolltest. Jetzt klickst du in die "Bearbeiten-Leiste" (das ist die Leiste unter der Multifunktionsleiste über den Spaltenüberschriften) und schreibst nun (anstatt im Textfeld) in der "Bearbeiten-Leiste" die Formel. Mit Enter abschließen.

Grüße, Ulrich

 

Hi,

ich nehme an, es soll nicht immer dieselbe Zelle sein sondern unterschiedliche? Falls immer dieselbe Zelle, dann siehe Beitrag von Ulrich, andernfalls per VBA.

 

Hallo Ulrich

Danke für die rasche Antwort!

Das mit dem Einfügen der Formel habe ich soweit auf der Reihe.

Den Code von Beverly habe ich nun wie folgt angepasst:
Private Sub Textfeld_284(ByVal Target As Range)
' falls im Bereich C33:JG33 geklickt wird
If Not Intersect(Target, Range("ES16")) Is Nothing Then
' bezogen auf das Textfeld
With ActiveSheet.Shapes("Textfeld 284")
' einblenden
.Visible = True
' Oberkante=Oberkante der geklickten Zelle
.Top = Target.Top
' linke Kante=linke Kante der rechten Nachbarzelle
.Left = Target.Offset(0, 1).Left
End With
' falls außerhalb des Bereichs
Else
' wenn Textfeld sichtbar dann ausblenden
If ActiveSheet.Shapes("Textfeld 284").Visible Then _
ActiveSheet.Shapes("Textfeld 284").Visible = False
End If
End Sub

Nun ist es aber so, dass das Textfeld nicht mehr verschwindet, wenn ich auf eine ander Zelle als ES16 klicke.

Was muss noch geändert werden, damit dies geschieht?

Gruss, CLG