Hallo,
ist es bei Excel möglich, eine Funktion einzubauen, die einen Text nur dann anzeigt, wenn man mit der Maus über die entsprechende Zelle geht, ähnlich wie es bei einem Kommentar möglich ist?
Die Funktion mit dem Kommentar kann ich leider nicht verwenden, da sich die Werte in den Zellen ständig ändern und jedem Wert ein bestimmter Text zugeordnet ist. Da es teilweise sehr lange Texte sind, kann ich sie nicht über den SVERWEIS mit den Nachbarzellen verknüpfen, sonst wäre die Tabelle nicht mehr überschaubar.
Danke im Voraus für die Hilfe.
Hi Mondstein,
nimm mal eine neue leere Mappe. Im Tabelle1!A1 schreibst du rein=
=3*D1
dann fügst du für Tabelle1!A1 einen Kommentar ein. Unter Optionen auswählen: Anzeige der Indikatoren.
Jetzt Tabelle1!A1 nach unten kopieren.
Nun unten mit rechts auf den Blattnamen klicken, dann Code anzeigen auswählen. Dort den nachstehenden Code reinkopieren, Editor schließen.
Nun schreibst du in Spalte D beliebige Zahlenwerte im Bereich von 1 bis 12 rein. Auch mal einen Buchstaben um einen Fehler in A zu erzeugen.
Ist das dann schon vom Prinzip her wie du dir das vorstellst?
Gruß
Reinhard
Option Explicit
'
Private Sub Worksheet\_Change(ByVal Target As Range)
Dim Zelle As Range
Set Target = Intersect(Target, Columns(4))
If Not Target Is Nothing Then
For Each Zelle In Target
If Not IsError(Zelle.Offset(0, -3).Value) Then
Select Case Zelle.Offset(0, -3).Value
Case Is 20
Zelle.Offset(0, -3).Comment.Text "Wert ist größer 20"
Case Else
Zelle.Offset(0, -3).Comment.Text "Irgendwas ist faul"
End Select
Else
Zelle.Offset(0, -3).Comment.Text "Fehler in " & Zelle.Offset(0, -3).Address
End If
Next Zelle
End If
End Sub
Hallo Reinhard, danke für deine Mühe.
Der Ansatz ist schon nicht schlecht.
In meiner Tabelle habe ich jeder Zahl Personen incl. der Kontaktdaten zugeordnet, die nur dann erscheinen sollen, wenn man mit der Maus über die Zahl fährt. Ich muss nicht permanent wissen, hinter welcher Zahl sich welche Person verbirgt, möchte mir nur das lästige Nachschlagen sparen, wenn die Kontaktdaten relevant werden.
Gruß
Andrea
Hallo Andrrea,
Der Ansatz ist schon nicht schlecht.
aha, wahre Begeisterungsstürme machten sich breit 
In meiner Tabelle habe ich jeder Zahl Personen incl. der
Kontaktdaten zugeordnet, die nur dann erscheinen sollen, wenn
man mit der Maus über die Zahl fährt.
Dann mach mal eine Kopie deiner originaldatei.
Lass k.A. 30 datenzeilen stehen, den Rest löschen. GGfs. das was man sieht anonymisieren.
Das geht fix, wenn du z.B. 30 nachnamen hast, schreibe in A1
nachn1
und kopiere das runter bis A30 usw.
Die Kommentare legst du so an wie sie in der Größe und Aufbaulänge sein sollen.
z.B. so
Nachn: a
Vorn: b
Otrt: c
oder so
a
b
c
Ich kann schon in gewissem maße die Kommentarfeldgröße dem Kommentartext anpassen, dazu muß ich halt die Textbreiten und -Höhen in etwa kennnen.
Lade dann die Beispielmappe hoch mit FAQ:2861 o.ä.
Gruß
Reinhard
Hallo Reinhard,
http://www.hostarea.de/server-01/Januar-b586ab4221.xls
hier ist die Datei zu finden.
Die Adressdaten sind nur durch Kommata getrennt und müssen nicht untereinander stehen. Die Bemerkungen müssten auch in dem Feld auftauchen. Sie sind teilweise etwas länger, daher müsste das Feld dementsprechend groß sein. Aber die Größe kann man doch sicher auch nachträglich noch anpassen?
Gruß
Andrea
Hi Andrea,
wenn Du die Daten zu einer Nr. nur hin und wieder brauchst,
könntest Du mit einer einfachen Messagebox auch schon zufrieden
sein.
Einfach Doppelklick auf eine Zahl machen, egal in welcher Zelle.
Das Beispiel ist auf die von Dir hochgeladene Datei angepaßt:
Private Sub Worksheet\_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim a, r As Long
Dim iotext, name, adr, remark As String
On Error GoTo Pech
r = Target.Cells.Value + 1
name = Sheets(1).Cells(r, 3).Value
adr = Sheets(1).Cells(r, 4).Value
remark = Sheets(1).Cells(r, 5).Value
iotext = name & vbCrLf & vbCrLf & adr & vbCrLf & vbCrLf & remark
a = MsgBox(iotext, vbOKOnly)
Pech:
End Sub
Vielen Dank,
damit ist mir sehr geholfen
Ist zwar etwas umständlicher, als würde das Fenster gleich aufgehen, aber so reicht es auch.