Alle Kommentare in extra Tabellenblatt ausgeben
10.07.2003 11:43:37
Oli
ich möchte alle Kommentare aus allen Sheets einer Arbeitsmappe zu einer "Legende" auf einem (oder mehreren) neuem Tabellenblatt ausgeben. Am besten mit dem Namen der Zelle (wie beim Ausdruck der Kommentare).
Ein Makro zum auslesen habe ich schon gefunden (s. unten), allerdings müsste die Ausgabe noch verändert werden. Kann mir da jemand helfen ?
Danke, oli
'Makro zum auslesen von Kommentaren und Ausgabe als Text in der Zelle daneben
'
Sub Kommentar_auslesen()
Dim Kom As Comment
Dim i As Integer
On Error Resume Next
For Each Kom In ActiveSheet.Comments
s = Kom.Parent.Column
z = Kom.Parent.Row
ActiveSheet.Cells(z, s + 1) = Kom.text
Next
End Sub