Zelle mit Kommentar ausstatten
28.06.2015 14:13:04
Kulo
Hallo Zusammen,
ich hab mir mal wieder selbst eine Aufgabe gestellt und versuche nun, mir die Lösung zusammen zu suchen. Leider nicht ganz mit Erfolg. Deshalb suche ich bei Euch Experten Rat.
In einem Tabellenblatt wird in Zelle N28 ein Datum ausgegeben, wann ein Kredit ausgelaufen ist.
In Zelle B33 wird mir die Laufzeit in Jahren, Monaten und Tagen angezeigt.
Die Zelle B33 soll aber nicht sichtbar sein. Ich würde es gern so haben, dass in Zelle N28 ein Kommentar vorhanden ist, welcher den Wert aus Zelle B33 enthält. dieser soll sich aber sofort ändern, wenn sich an der Laufzeit des Kredites etwas ändert.
Folgenden Tipp aus dem Netz habe ich mit meinen Zellbezügen bereits nachgestellt:
Eine nette Variante ist auch die Verwendung einer benutzerdefinierten Funktion.
Damit kann in diesem Falle, der Zelleninhalt auch in den Kommentar einer anderen Zelle _
geschrieben werden!! Smile
Code:
Public Function TakeComment(rngQuelle As Range, Optional rngZiel As Range)
If rngZiel Is Nothing Then
Set rngZiel = Application.Caller
End If
With rngZiel
If Not .Comment Is Nothing Then
.Comment.Delete
End If
.AddComment rngQuelle(1, 1).Text
End With
End Function
Augerufen wird die Funktion dann ganz normal in einer Zelle (die Spalte kann man ja auch _
ausblenden) indem enweder nur der Quellbezug, oder aber auch eine Zielzelle angegeben wird:
=TakeComment(A1) schreibt den Kommentar in die Zelle in der auch die Funktion steht
=TakeComment(A1;C1) schreibt den Kommentar in Zelle C1, auch wenn die Funktion woanders steht _
_
Wink
Der Kommentar wird in die Zelle N28 geschrieben, aktualisiert sich aber nicht bei einer Änderung der Werte von N28 oder B33.
Hat da von Euch einer eine Idee? Ich würde mich sehr freuen.
VG
Kulo