Individueller Text bei MouseOver

Seb · 2022-07-22T10:27:04+00:00

Hallo, ich würde gerne einen individuellen Text einblenden, sobald man mit der Maus über eine bestimmte Zelle geht. Dieser Text muss sich aber automatisch immer ändern. Beigefügt mal eine Beispiel-Datei: Tabelle1 ist mit Art. Nr. und Kurztexten versehen, in Tabelle2 stehen zu den jeweiligen Art. Nr. die Langtexte. Ich möchte jetzt per MouseOver den jeweiligen Langtext zur passenden Art. Nr. einblenden. Wie geht das? Leider bin ich nicht so ein VBA Profi... Danke euch. https://www.herber.de/bbs/user/154302.xlsx

Hi,
ich würde vorschlagen...
a) in Tabelle1, Spalte B nicht MouseOver zu nutzen (gibbs ja eh nich^^), sondern mit ausgeblendeten Kommentaren zu arbeiten
b) jedes mal, wenn Tabelle1 angezeigt/ausgewählt wird (Blattwechsel zu Tabelle1) die jeweiligen Kommentare in Spalte B zu aktualisieren, damit, z Bsp bei Langtextänderung in Tabelle2 dieser neue Langtext eben auch in Tabelle1 als Kommentar gezeigt wird
c) und natürlich auch Update für Kommentare in Tabelle1, wenn in Spalte A ne andere Artnr eingegeben wird
(Voraussetzung: in Tabelle2 muss natürlich für jede ArtNr ein Langtext enthalten sein! - weil: no langtext = no comment)
d) ich warte erst mal auf dein Feedback, bevor ich versuche, meine Ideen in VBA-Sprache umzusetzen - denn vielleicht gefällt dir das ja so gar nicht - und für den Mülleimer arbeiten will ich auch nich^^
Ciao
Thorsten

Hi
folgender Code liest die Werte aus Tabelle2 aus und schreibt sie als Kommentar/Quickinfo in die Tabelle1


Dim Zelle As Range
Dim KomStart As Range
Dim KomEnde As Range
Dim KomZelle As Range
Dim txt As String
For Each Zelle In Sheets("Tabelle1").Range(Sheets("Tabelle1").Cells(2, 1), Sheets("Tabelle1").Cells(1, 1).End(xlDown))
Set KomStart = Sheets("Tabelle2").Columns(1).Find(what:=Zelle.Value, lookat:=xlWhole)
If KomStart Is Nothing Then
On Error Resume Next
Zelle.Comment.Delete
On Error GoTo 0
Else
If KomStart.Offset(1, 0) = "" Then
Set KomEnde = KomStart.End(xlDown)
If KomEnde.Row = Rows.Count Then
Set KomEnde = KomStart.Offset(0, 1).End(xlDown)
Else
Set KomEnde = KomEnde.Offset(-1, 1)
End If
End If
For Each KomZelle In Range(KomStart.Offset(0, 1), KomEnde)
txt = txt & vbLf & KomZelle.Value
Next
On Error Resume Next
Zelle.Comment.Delete
On Error GoTo 0
Zelle.AddComment
Zelle.Comment.Text Text:=Mid(txt, 2)
txt = ""
End If
Next

ich würde ihn ins Deactivate-Event der Tabelle2 oder ins Activate-Event der Tabelle1 einfügen, damit Änderungen auf dem Blatt2 automatisch übernommen werdne
Gruß Daniel

Forumthread: Individueller Text bei MouseOver

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial