Kommentare in Excel formatieren

Hallo Andreas,

ich bin davon ausgegangen dass er die Option "Kommentare: Am Ende des Blattes" in den Seitenoptionen gewählt hat. Dann werden alle kommentierten Zellen, unter Angabe ihrer Zelladresse, unterhalb des eigentlichen Ausdrucks aufgelistet.

Ich finde das auch noch nicht so genial, da man in der Regel die Zelladresse nicht kennt und daher nicht weiß auf was sich welcher Kommentar bezieht.

Dein Vorschlag funktioniert nur wenn die Kommentare dauerhaft eingeblendet sind (zumindest ist das in meinem 2007er noch so). Das mache ich nur ganz selten.

Bei der Variante von Robert Gelbmann kann man die Kommentare wenigstens noch platzsparend Formatieren, beim Zuordnen der Kommentare zu ihren Quellen hilft das auch leider auch nicht weiter. ;-)

Gruß

Robert

Ich hab irgendwie das Gefühl wir reden nicht von der gleichen Sache.

Mach mal bitte eine neue Datei und führ dies Makro aus:

Sub Test()

With Range("A1")

.Value = "Zelle"

.AddComment

.Comment.Text Text:="Das ist ein Kommentar"

End With

With ActiveSheet.PageSetup

.PrintComments = xlPrintInPlace

End With

End Sub

Die Zelle A1 hat nun einen Kommentar, der ist auf dem Blatt zu sehen und wenn Du auf die Druckvorschau gehst, dann wird der Kommentar wie zu sehen gedruckt.

Könntest Du bitte eine Beispieldatei mit Deinen "Kommentaren unter den Tabellen" bei z.B. www.dropbox.com hochladen und den Downloadlink hier posten?

Andreas.

Das versteh ich nicht... wenn ich Kommentare drucken will, dann richte ich die Seite so ein das sie "Wie auf dem Blatt angezeigt" gedruckt werden... und dann werden sie gedruckt wie sie auf dem Bildschirm zu sehen sind...

Wo ist da das Problem?

Andreas.

Hallo GK,

schon etwas älter, sollte aber immer noch funktionieren. Damit kannst Du dir die Kommentare in ein separates Blatt schreiben lassen. Dann lassen sie sich wie ein normales Tabellenblatt formatieren. Ein paar kleine Anpassungen sollten reichen. Wenn Du damit
Probleme hast, melde dich noch mal.



Gruß Robert (nein, nicht Gelbmann ;-) )



Sub Uebersicht_der_Kommentare()

Dim xAktivesBlatt As Object

Dim xKommentar As Object

Dim xZeilenNr As Long

Set xAktivesBlatt = ActiveSheet

xZeilenNr = 1

If xAktivesBlatt.Comments.Count = 0 Then

MsgBox "Im derzeit aktivem Blatt konnten keine Kommentare gefunden

werden!", vbInformation, "Übersicht der Kommentare"

Exit Sub

End If

With ThisWorkbook.Worksheets.Add(After:=xAktivesBlatt)

' Vertikale Ausrichtung: Oben

.Cells.VerticalAlignment = xlTop

For Each xKommentar In xAktivesBlatt.Comments

.Cells(xZeilenNr, 1).Value = "Zelle:"

.Cells(xZeilenNr, 2).Value = xKommentar.Parent.Address

.Cells(xZeilenNr + 1, 1).Value = "Kommentar:"

.Cells(xZeilenNr + 1, 2).Value = xKommentar.Text

xZeilenNr = xZeilenNr + 3

Next xKommentar

End With

End Sub

von Robert Gelbmann (MVP)

Hallo Andreas,

das mit den Hyperlinks ist ein interessanter Ansatz, den werde ich auch mit in die Sammlung nehmen. Danke.

Robert