Zellinhalte akualisiert als Kommentare darstellen

Liebe VBA Gurus,
folgendes Problem: möchte gerne einen Zellbereich als Kommentar in einer anderen Zelle darstellen. Also z.B. im Blatt2 A1:A5 stehen verschiedene Namen.
Im Blatt 1 steht in A1 "Firma xy". Beim Darüberfahren mit der Maus sollen als Kommentar die einzelnen Namen aus Blatt2 aufscheinen. (das hätte ich im Forum ja bereits gefunden), ABER es soll AUTOMATISCH aktualisiert werden. D.h. füge ich im Blatt 2 Namen dazu, wird auch der Kommentar entsprechend angepasst.
Und dannw weiter: im Blatt1 A2 steht "Firma AB", Kommentar zeigt auf Blatt2 B1:B4, ....
Geht das überhaupt und wenn ja, wie?
Bitte EINFACH erklären - bin simpler Excel-User ;-)
Danke schon im Voraus allen Helferleins
LG
Rob

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Activate() Dim s$, i% i = 1 With Worksheets("Tabelle2") 'Alle Werte von A1 bis Axx einlesen, solange keine Leerzelle While Not IsEmpty(.Cells(i, 1)) s = s & .Cells(i, 1).Text & vbLf i = i + 1 Wend End With 'String in den vorhandenen Kommentar schreiben Range("A1").Comment.Text Text:=s End Sub

noch ne ergänzende Frage:
AUFGABE: folgendes Problem: möchte gerne einen Zellbereich als Kommentar in einer anderen Zelle darstellen. Also z.B. im Blatt2 A1:A5 stehen verschiedene Namen.
Im Blatt 1 steht in A1 "Firma xy". Beim Darüberfahren mit der Maus sollen als Kommentar die einzelnen Namen aus Blatt2 aufscheinen. (das hätte ich im Forum ja bereits gefunden), ABER es soll AUTOMATISCH aktualisiert werden. D.h. füge ich im Blatt 2 Namen dazu, wird auch der Kommentar entsprechend angepasst.
Und dannw weiter: im Blatt1 A2 steht "Firma AB", Kommentar zeigt auf Blatt2 B1:B4, ....
Geht das überhaupt und wenn ja, wie?
Bitte EINFACH erklären - bin simpler Excel-User ;-)
Danke schon im Voraus allen Helferleins
LÖSUNG: die super funktioniert - Dank ANdreas:


Private Sub Worksheet_Activate()
Dim s$, i%
i = 1
With Worksheets("Tabelle2")
'Alle Werte von A1 bis Axx einlesen, solange keine Leerzelle
While Not IsEmpty(.Cells(i, 1))
s = s & .Cells(i, 1).Text & vbLf
i = i + 1
Wend
End With
'String in den vorhandenen Kommentar schreiben
Range("A1").Comment.Text Text:=s
End Sub

ERGÄNZUNG:
Wie kann ich machen, dass abhängig vom Zellinhalt (also Firma XY oder Firma AB) im Blatt 2 auch auf die richtigen Namen verwiesen wird? Z.b. steht im Blatt 2 auf A1 quasi als Überschrift Firma XY, ab Zeile A2 - A5 die Namen. Beim Überfahren mit der Maus, soll er erkennen welche Firma angewählt wurde und die richtigen Namen aus Blatt2 in den Kommentar schreiben.

Beliebteste Forumthreads (12 Monate)

Zellinhalte akualisiert als Kommentare darstellen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread