Office: Kommentar auslesen

Hallo,

gibt es eine Möglichkeit im VBA-Code den Kommentar einer Zelle auszulesen?
oder kann man per VBA erkennen ob überhaupt ein Kommentar existiert?

Viele Grüße

:)

 

Hey,

da habe ich doch vor einiger Zeit mal etwas programmiert :eine UDF (User Defined Function) zum Auslesen von Zellekommentaren :

VBA-Code:

Public Function Kommentar(Zelle As Range)     'Ermittelt den Kommentartext einer Zelle     'Aufruf z.B. im Tabellenblatt : =KOMMENTAR(B5)     '11.12.2007, NoNet - www.excelei.de     Application.Volatile     Dim KommentarFeld As Object     Set KommentarFeld = Zelle.Comment     If Not KommentarFeld Is Nothing Then         If KommentarFeld.Text <> "" Then             Kommentar = KommentarFeld.Text         End If     Else         Kommentar = ""     End If End Function

Code eingefügt mit Syntaxhighlighter 4.15

Du kannst diese Funktion in einer Zelle verwenden : =KOMMENTAR(B5) zum anzeigen des Kommentarfeldinhaltes der Zelel B5 !

 

Danke für die schnelle Antwort werde es heute Abend mal testen und mich dann wieder melden.

 

Hallo,

so habe die Function getestet im Excel Arbeitsblatt funktioniert es auch wenn ich ein Range angebe Bsp.
Code:

aber wenn ich die Function im VBA aufrufe funktioniert sie nur mit einer Zelle Bsp. Code:

wenn ich ein Range angebe Bsp. Code:

funktionierts leider nicht. Gibt es da eine Besonderheit?

 

Hi,

was Du möchtest funktioniert mit der Funktion nicht. Es kann immer nur eine Zelle mit Kommentar ausgelesen werden, aber kein Zellbereich.

 

Moin DY-Fan,

der Code von NoNet ist auf einzelne Zellen ausgelegt. Ehrlich gesagt würde ein Range ja theoretisch bei mehreren Kommentaren innerhalb jener diese hintereinander zusammenfügen - macht wenig Sinn.

Baue lieber ein Schleife und durchlaufe die Zellen einzeln und gebe die Kommentare nacheinander aus.

Vielleicht beschreibst du dein weitergehendes Ziel mal. Ich hätte noch einen Code der alle Kommentare einer Mappe ausließt, mit Angabe des Blattes und der Zelle. Ob das deinen Bedarf trifft habe ich aber noch nicht lesen können.

 

Hallo,

ich möchte in VBA einen Zellenbereich nach Kommentaren auslesen lassen und das Ergebins (die jeweiligen Kommenater mit der Zelle) später auswerten.

 

Hallo DV-Fan,

mit diesem Code (in Verbindung mit der o.g. UDF) kannst Du die Zellkommentare aus mehreren Zellen auswerten :

VBA-Code:

Sub KommentareAuslesen()     Dim strKommentare As String     Dim rngBereich As Range, rngZelle As Range     Set rngBereich = [A1:C10] 'Dieser Bereich wird durchsucht     For Each rngZelle In rngBereich         If Kommentar(rngZelle) <> "" Then             strKommentare = strKommentare & IIf(strKommentare = "", "", vbLf) & _                             rngZelle.Address & " : " & Kommentar(rngZelle)         End If     Next     MsgBox "Die Kommentare des Bereiches " & rngBereich.Address & " :" & vbLf & vbLf & _         strKommentare, vbOKOnly + vbInformation, "Kommentare :"     'Speicher für Objekt variablen in umgekehrter Reihenfolge wieder freigeben :     Set rngZelle = Nothing     Set rngBereich = Nothing End Sub

Code eingefügt mit Syntaxhighlighter 4.15

Wie von den anderen Kollgen bereits beschrieben : die UDF ist eigentlich nur zum Auslesen des Kommentars EINER EINZELNEN Zelle konzipiert, damit kann sie auch als einfache Tabellenblattfunktion (nicht MATRIX-Funktion !) verwendet werden !

 

Hallo NoNet

Super, das ist genau das was ich brauche vielen Dank

 

Genau das habe ich gesucht! Vielen Dank dafür.

Schönes Wochenende

geolino