Live-Forum - Die aktuellen Beiträge
Datum
Titel
03.10.2025 22:18:19
Dropdown
03.10.2025 20:19:48
Formatierung bei Zelländerung
03.10.2025 18:57:58
Ersatz für PrettyCode.Print
03.10.2025 12:02:13
leere Zeilen nicht drucken (trotz Kontrollkästchen)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1876to1880
1876to1880
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

So etwas in der Art wie MouseOver

Forumthread: So etwas in der Art wie MouseOver

So etwas in der Art wie MouseOver
21.03.2022 13:06:19
Edgar
Hallo,
ich habe schon zahlreiche Postings zu dem Thema gelesen und musste feststellen, das das Ganze, wenn überhaupt, nur mit viel Aufwand umsetzber ist. Aber vielleicht gibt es ja eine ganz andere Kösung.
Ich beschreibe mein Problem einmal:
Ich habe eine Tabelle mit einem Bereich von E9:T70
In jeder dieser Zellen ist ein Nachname hinterlegt (gültigkeit: Liste, Bereich NEUES_Blatt!I1:I60)
Da die Nachnamen für die Felder zu lang sind (auch wenn ich auf 8 Pt runter gehe) suche ich nach einer Möglichkeit, sich den kompletten Namen, der sich in der Zelle über der ich mich gerade befinde oder die ich angeklickt habe, befindet anzeigen zu lassen.
Beispiel: In Zelle E20 sthet lu lesen LINDEME. In Wirklichkeit handelt es sich um LINDEMEIER. Wenn ich also auf LINDEME gehe möchte ich LINDEMEIER sehen.
Sollte es keine "einfache" Lösung geben vergesst das Ganze bitte. Wäre nur ein schönes Gimmick.
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: So etwas in der Art wie MouseOver
21.03.2022 13:14:27
MCO
Hallo Edgar!
Könntest ein selection.change Ereignis auf dieser Zelle auslösen, dann den Zellinhalt per Makro in einen Kommetar bzw eine Notiz zur Zelle schreiben.
Aufruf:

add_comment activecell,cstr(activecell.value)
(vielleicht besser target statt activecell)
Prozedur:

Function Add_comment(rng As Range, neutext As String)
On Error GoTo ende:
If Not rng.Comment Is Nothing Then rng.Comment.Delete
rng.AddComment
With rng.Comment
.Text WorksheetFunction.Clean(Trim(neutext))
.Visible = 0
With .Shape
.Top = rng.Top + 2
.Left = rng.Offset(-1, 1).Left + 15
.TextFrame.AutoSize = True
.Height = 12
.Line.Visible = True
End With
End With
Exit Function
ende:
If Err.Number  0 Then
MsgBox "Zelle " & rng.Address(0, 0) & Chr(13) & _
Err.Description, , "Fehler", Err.HelpFile, Err.HelpContext
End If
End Function
Gruß, MCO
Anzeige
AW: So etwas in der Art wie MouseOver
21.03.2022 13:19:44
Edgar
Danke MCO!
Wenn ich das richtig lese muss ich das Ereigniss bei jeder Zelle in dem Bereich hinterlegen; also bei 976 Zellen?
AW: So etwas in der Art wie MouseOver
21.03.2022 13:20:44
Rudi
Hallo,
evtl über Eingabemeldung?
Zelle musst du anklicken.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
If Target  "" Then
Select Case Target.Column
Case 5 To 20
Select Case Target.Row
Case 9 To 70
With Target.Validation
.Delete
.Add xlValidateInputOnly
.InputMessage = Target.Value
End With
End Select
End Select
End If
End If
End Sub
Gruß
Rudi
Anzeige
AW: So etwas in der Art wie MouseOver
21.03.2022 13:23:49
Edgar
Danke Rudi,
das probiere ich gleich einmal aus.
Funktioniert aber nur wenn sich der Ihalt mind. einer Zelle ändert, oder auch wenn ich nichts ändere und nur auf eine Zelle klicke?
probier's einfach! owT
21.03.2022 13:25:28
Rudi
AW: probier's einfach! owT
21.03.2022 13:34:35
Edgar
Hallo Rudi,
perfekt! genau das was ich wollte. Reichst Du mir den kleinen Finger nehme ich die ganze Hand: Kann der Test auch nach einer bestimmten Zeit (zB. 3 Sekunden) wieder automatisch ausgeblendet werden? Ansonsten drücke ich halt die ESC Tast.
Anzeige
AW: probier's einfach! owT
21.03.2022 13:41:13
Edgar
Zu früh gefreut:
Wenn ich das aktiviere wir zwar ein "ToolTip" angezeigt, aber dafür sind meine Dateneinschränkungen (Daten Gültigkeit Liste) weg und ich kann nichts mehr eingeben.
AW: probier's einfach! owT
21.03.2022 14:27:13
Rudi
Hallo,
dann so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
If Target  "" Then
Select Case Target.Column
Case 5 To 20
Select Case Target.Row
Case 9 To 70
With Target.Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, _
Formula1:="='Neues Blatt'!$I$1:$I$60"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = Target.Value
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Select
End Select
End If
End If
End Sub

Anzeige
AW: So etwas in der Art wie MouseOver
21.03.2022 13:35:25
Edgar
An alle, die mir geholfen haben: Vieln Dank Eucg dafür!
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige