Kommentare am Ende der Seite Drucken

Hallo Olli,



Kommentare kannst du auch drucken. Schau mal bei Seite einrichten => Tabelle. Dort kannst du wählen, ob die Kommentare wie angezeigt gedruckt werden sollen oder am Ende des Blattes. Dort steht dann zu welcher Zelle der Kommentar gehört, der Inhalt und gegebenenfalls
auch der Verfasser.

Mit Makro läßt sich fast alles lösen. Mein Vorschlag wäre, ein zweites Blatt einzurichten, in dem du die Datails zu dem Fehler aufnimmst. In der Originaltabelle kannst du dann die Kurzbeschreibung zu einem Hyperlink zu dem zweiten Blatt und der entsprechenden
Zelle machen. Bei gleichen Fehlern bräuchte es dann nur einmal das Detail.



Mit freundlichen Grüßen

Claus

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.

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.

Hallo,

schau mal hier rein:

https://onedrive.live.com/redir?resid=9378aab6121822a3!325&authkey=!AApmk7UTBA7IuAM&ithint=folder%2cxlsm

nach "Geburtstage". Du musst die Mappe herunterladen, da Makros in OneDrive deaktiviert sind.

Hier werden die Geburtstage als Kommentare in den Kalender eingefügt mit dem Makro "Kommentare". Wenn sich etwas an den Mitgliedern ändert, starte das Makro erneut. Der Druck ist so eingestellt, dass diese Kommentare am Ende des Blattes ausgedruckt werden.
Wenn du das Blatt "Kalender" aktivierst, wird am heutigen Tag im Kalender der Kommentar sichtbar gemacht, damit du gleich sehen kannst, wer heute Geburtstag hat. In der Liste ist der heutige Geburtstag durch die bedingte Formatierung hervorgehoben.

Claus

Hallo Volker,

ich verstehe dein Vorhaben nicht richtig. Was machst du? Änderst du in Spalte E den Text für den Kommentar und willst dann diese Änderung zurückschreiben?

Dazu musst du nicht einen Kommentar einfügen. Der Kommentar besteht doch schon, sonst hättest du den nicht auslesen können. Du musst nur den Text ändern:

Sub KommentareErgänzen()
Dim LRow As Long

Dim rngC As Range
With Sheets("Kommentare")

    LRow = .Cells(Rows.Count, 1).End(xlUp).Row

    For Each rngC In .Range("B3:B" & LRow)

        Sheets("Quelle").Range(rngC.Value).Comment.Text _

            rngC.Offset(, 2) & ":" & Chr(10) & rngC.Offset(, 3) _

            & Chr(10) & "/// " & rngC.Offset(, 4)

    Next

End With

        

End Sub

Wenn das nicht das gewünschte bringt, bitte beschreibe dein Vorhaben etwas genauer. Du könntest sogar den kompletten Kommentar verwenden und nur einen Teil ergänzen.

Claus