Notiz mit Text aus anderer Zelle anzeigen

Forumthread: Notiz mit Text aus anderer Zelle anzeigen

11.10.2024 11:25:46

Elena2

Hallo zusammen,
wer kann mir sagen, wie ich (ohne VBA-Kenntnisse) den Inhalt einer Zelle (evtl. aus einer anderen Tabelle) in einer Notiz anzeigen kann, damit diese Info bei Mouseover angezeigt wird?
Beispiel:
In der Tabelle "X", Zelle A2 soll eine Notiz angezeigt werden die den Text aus der Tabelle "Y", Zelle A2 enthält.

Das soll dazu dienen, nur an einer Daten zu ändern, die bei Mouse Over in einer Zelle an unterschiedlichen Stellen angezeigt werden.

Danke für eine Antwort.

Liebe Grüße
Elena

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Notiz mit Text aus anderer Zelle anzeigen

11.10.2024 11:45:42

UweD

Hallo

- Rechtsclick auf den Tabellenblattreiter, wo die Notizen angefügt werden sollen
- Code anzeigen
- diesen Code rechts reinkopieren

- Bei Auswahl einer Zelle wird der Inhalt aus Tabellenblatt Y gelesen und im Zielblatt eingetragen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim wsY As Worksheet

    Dim textAusY As String

    

    ' Arbeitsblatt definieren

    Set wsY = ThisWorkbook.Sheets("Y") ' Tabelle "Y"

    

    ' Text aus Tabelle "Y", gleiche Zelle holen

    textAusY = wsY.Range(Target.Address).Value

    If textAusY = "" Then Exit Sub

    

    ' Prüfen, ob bereits ein Kommentar vorhanden ist, und diesen ggf. löschen

    If Not Target.Comment Is Nothing Then

        Target.Comment.Delete

    End If

    

    ' Kommentar hinzufügen und Text einfügen

    Target.AddComment Text:=textAusY



End Sub

LG UweD

AW: Notiz mit Text aus anderer Zelle anzeigen

11.10.2024 14:11:37

ELena2

Hallo UweD,

danke für Deine Antwort.
Leider funktioniert es nicht, da ich wohl nich irgendetwas falsch mache, sorry.

Ich habe Deine Routine in das Tabellenblatt in den Code eingetragen, wo die Notizen eingefügt werden sollen.
Dann habe ich den Dateinamen ersetzt und es sieht jetzt so aus:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim wsTabelle_quelle As Worksheet
Dim textAusTabelle_quelle As String

' Arbeitsblatt definieren
Set wsTabelle_quelle = ThisWorkbook.Sheets("Tabelle_quelle") ' Tabelle "Tabelle_quelle"

' Text aus Tabelle "Tabelle_quelle", gleiche Zelle holen
textAusTabelle_quelle = wsY.Range(Target.Address).Value
If textAusY = "" Then Exit Sub

' Prüfen, ob bereits ein Kommentar vorhanden ist, und diesen ggf. löschen
If Not Target.Comment Is Nothing Then
Target.Comment.Delete
End If

' Kommentar hinzufügen und Text einfügen
Target.AddComment Text:=textAusTabelle_quelle

End Sub

Ich habe jedes Y durch Tabelle_quelle ersetzt.
Die Infos in der Tabelle_quelle stehen in der gleichen Spalte wie in der Tabelle_ziel.

Hast Du noch einen Tipp?

Liebe Grüße
Elena

AW: Notiz mit Text aus anderer Zelle anzeigen

11.10.2024 14:54:00

emkaes

Hallo,

Ich habe jedes Y durch Tabelle_quelle ersetzt.

hier nicht

textAusTabelle_quelle = wsY.Range(Target.Address).Value
If textAusY = "" Then Exit Sub

Beliebteste Forumthreads (12 Monate)

Notiz mit Text aus anderer Zelle anzeigen

Forumthread: Notiz mit Text aus anderer Zelle anzeigen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Notiz mit Text aus anderer Zelle anzeigen

Forumthread: Notiz mit Text aus anderer Zelle anzeigen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread