Excel 2003 Kommentar dyn. nach Zellwert zeigen

Computer: Software & Programmierung Office Software
1

Guten Tag,
ich versuche in Excel 2003 Kommentar dyn. anzuzeigen.
Eine Zelle hat einen bestimmten Wert z.B 1, 2 oder 3

Je nach Wert soll im Kommentar der Name, Adresse und Telefonnummer eines Mitarbeiters ersccheinen.
z.B. trage ich in eine Zelle 1 ein soll dazu das Kommentar :
Max Mustermann
Musterstr. 26
12345 Musterstadt
erscheinen

Ich dachte ich nehm dazu die Formel aus dem Forum hier:
„Public Function TakeStrComment(strQuelle As String, Optional rngZiel As Range) As String
If rngZiel Is Nothing Then
Set rngZiel = Application.Caller
End If
With rngZiel
If Not .Comment Is Nothing Then
.Comment.Delete
End If
.AddComment strQuelle
End With
End Function“

Zelle:
„=TakeStrComment(SVERWEIS(A3;$E$2:blush:G$4;VERGLEICH“($B$1;$E$1:blush:G$1;0);0);A3)"

Ich glaub ich bin da völlig auf dem Holzweg aber mein Buch gibt auch nicht mehr her :smile:

2

Hm

lege deinen Namen und alles in Mappe 2 an Markiere diese und gehe auf „DATEN-GüLTIGKEIT-DEFENIEREN“ gib dem einen namen z.B. Max

dann in mappe 1 in der spalte die Wenn formel versendne ! wenn Zeile A1 gleich 1 dann B2 gleich MAX

Sollte funktionieren!

So hab ich es gemacht

3

Hallo Kalle,

ich versuche in Excel 2003 Kommentar dyn. anzuzeigen.
Eine Zelle hat einen bestimmten Wert z.B 1, 2 oder 3

Je nach Wert soll im Kommentar der Name, Adresse und
Telefonnummer eines Mitarbeiters ersccheinen.

Ich dachte ich nehm dazu die Formel aus dem Forum hier:
Ich glaub ich bin da völlig auf dem Holzweg aber mein Buch
gibt auch nicht mehr her :smile:

tjanun, für dein Vorhaben kannst du nur Segmente aus der Funktion, die übrigens perfekt funktioniert, benutzen.

Grundsätzlich kannst du in einer Zelle entweder eine BDF (BenutzerdefinierteFunktion) oder einen Wert reinschreiben.
Ergo muß die BDF in eine Nachbarzelle.
Und sie muß umgeschrieben werden.

Wäre das ein Weg?

Gruß
Reinhard

4

Grüezi kalleo

ich versuche in Excel 2003 Kommentar dyn. anzuzeigen.
Eine Zelle hat einen bestimmten Wert z.B 1, 2 oder 3

Je nach Wert soll im Kommentar der Name, Adresse und
Telefonnummer eines Mitarbeiters ersccheinen.
z.B. trage ich in eine Zelle 1 ein soll dazu das Kommentar :
Max Mustermann
Musterstr. 26
12345 Musterstadt
erscheinen

Ich dachte ich nehm dazu die Formel aus dem Forum hier:
„Public Function TakeStrComment(strQuelle As String, Optional
rngZiel As Range) As String
If rngZiel Is Nothing Then
Set rngZiel = Application.Caller
End If
With rngZiel
If Not .Comment Is Nothing Then
.Comment.Delete
End If
.AddComment strQuelle
End With
End Function“

Zelle:
„=TakeStrComment(SVERWEIS(A3;$E$2:blush:G$4;VERGLEICH“($B$1;$E$1:blush:G$1;0);0);A3)"

Ich glaub ich bin da völlig auf dem Holzweg aber mein Buch
gibt auch nicht mehr her :smile:

Tja, die Funktion geht auch ein wenig weiter als viele Bücher… :wink:

Du solltest vielleicht etwas mehr über den Aufbau deiner Daten verraten.

Du hast hier die Funktion wohl 1:1 aus dem ursprünglichen Beitrag übernommen, sie aber IMO nicht auf deine Verhältnisse angepasst.
Daher mal ein paar Fragen zu deiner Mappe:

  • Erhältst Du denn Fehlermeldungen oder was genau klappt bei dir denn nicht?

  • Wo liegen denn deine Daten und in welcher Form tun sie das?

  • In welcher Zelle steht dein Auswahlwert 1, 2, 3?

  • In welcher Zelle steht die Formel?

  • Und in welcher Zelle soll der Kommentar anschliessend zu lesen sein?

  • Wo genau im VBA-Teil der Mappe hast Du denn den Code gespeichert?

Vielleicht wäre es am besten wenn Du eine kleine Demo-Mappe zur Verfügung stellen könntest. Lade sie auf einen WebSpace hoch [FAQ:2606] und nenne hier dann den Link.

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -