Kommentare von Zellen

Computer: Software & Programmierung Office Software
#1

Hallo,

gleich noch eine Frage. Habe Zellen mit Kommentaren. Ich würde gerne die Kommentare auslesen und in die Zelle daneben als Text schreiben. Ok, geht manuell, aber auch automatisch?

Gruß
BierKiste

#2

Grüezi Bierkiste

gleich noch eine Frage. Habe Zellen mit Kommentaren. Ich würde
gerne die Kommentare auslesen und in die Zelle daneben als
Text schreiben. Ok, geht manuell, aber auch automatisch?

Dafür könntest du eine Benutzerdefinierte Funktion in VBA schreiben und dann wie eine ‚normale‘ Funktion nutzen um den Kommentar auszulesen.

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -
#3

Hi Thomas,

leider habe ich keine Ahnung von VBA. Aber das alles einzeln rauszuschreiben… Kannst du helfen?

Gruß
BierKiste

#4

Grüezi Bierkiste

leider habe ich keine Ahnung von VBA. Aber das alles einzeln
rauszuschreiben… Kannst du helfen?

Nimm die folgenden Zeilen und kopiere sie in ein allgemeines Modul deiner Mappe:

Public Function GetComment(rngZelle As Range) As Variant
 If rngZelle.Cells.Count 1 Then
 GetComment = CVErr(xlErrRef)
 Exit Function
 ElseIf Not rngZelle.Comment Is Nothing Then
 GetComment = rngZelle.Comment.Text
 Else
 GetComment = ""
 End If
End Function

  • Rechtsklick auf einen Tabellenblattreiter

  • Code anzeigen auswählen

  • Menü: ‚Einfügen‘ / Modul

HIer nun den Code per Copy/Paste einfügen und den VBA-Editor mit ALT+Q wieder schliessen. Mappe als .XLS oder .XLSM speichern, schliessen und wieder öffnen.
Dabei die Makros aktivieren.

Nun steht dir die neue Funktion zur Verfügung und Du kannst sie wie folgt verwenden:

Tabellenblatt: [Mappe1]!Tabelle1
 │ A │ B │ C │ D │
──┼───┼───┼─────────────────────┼───┤
1 │ │ │ t.ramel: Hallo Welt │ │
──┼───┼───┼─────────────────────┼───┤
2 │ │ │ │ │
──┼───┼───┼─────────────────────┼───┤
3 │ │ │ │ │
──┼───┼───┼─────────────────────┼───┤
4 │ │ │ │ │
──┼───┼───┼─────────────────────┼───┤
5 │ │ │ #BEZUG! │ │
──┼───┼───┼─────────────────────┼───┤
6 │ │ │ │ │
──┴───┴───┴─────────────────────┴───┘
Benutzte Formeln:
C1: =GetComment(A1)
C2: =GetComment(A2)
C5: =GetComment(A5:A8)

Tabellendarstellung erreicht mit dem Code in FAQ:2363

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -
#5

Klasse!

Danke dir, ich probiere es aus. BierKiste