Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: kommentare nicht drucken aber doch....

kommentare nicht drucken aber doch....
21.07.2004 14:51:53
ray
Hallo Hallo,
ja, ich weiß, Betreff ist etwas seltsam formuliert. Hier der 2. Versuch
wenn ich einen kommentar in eine Zelle einfüge, dann erscheint rechts oben in der Ecke der zelle ein klitzekleine farbiges Dreieck.
Beim Ausdruck wird das nicht gedruckt. Das möchte ich, damit ich weiß, das in der Zelle noch ein Comment ist.
Viele Gruße aus Hamburg mit Wetter aus London...
Ray
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kommentare nicht drucken aber doch....
Ulf
Nicht mit Excel- Bordmitteln, aber bei VBA gut, sollte es kein Problem sein, oder?
Ulf
AW: kommentare nicht drucken aber doch....
Uduuh
Hallo,
bastel dir das mal in eine beforePrint-Prozedur ein:

Sub Indikator_rein()
Dim iInd As Integer, Zelle As Range
Dim x, y, a
a = 4.5
For Each Zelle In ActiveSheet.UsedRange.Cells
If Zelle.NoteText <> "" Then
x = Zelle.Left + Zelle.Width - a
y = Zelle.Top
ActiveSheet.Shapes.AddShape _
(msoShapeRightTriangle, x, y, a, a).Select
With Selection.ShapeRange
.Flip msoFlipHorizontal
.Flip msoFlipVertical
.Line.Visible = msoFalse
.Name = "shpIndikator_" & iInd
With .Fill
.Visible = msoTrue
.Solid
.ForeColor.SchemeColor = 8 '=schwarz, Rot=10
.Transparency = 0#
End With
End With
iInd = iInd + 1
End If
Next Zelle
Range("A1").Select
End Sub


Sub Indikator_raus()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If sh.Name Like "shpIndikator_*" Then sh.Delete
Next sh
End Sub

Gruß aus'm Pott
Udo
Anzeige
AW: kommentare nicht drucken aber doch....
Ulf
Hm, Usedrange? Besser ist wohl SpecialCells(xlCellTypeComments) und
dann Select? Das ist, wie wir wissen, nicht nötig!
Ulf
Knötterkopp....
Uduuh
...war größtenteils aufgezeichnet. So besser? ;-))

Sub Indikator_rein()
Dim iInd As Integer, Zelle As Range, sh As Shape
Dim x, y, a
a = 4.5
For Each Zelle In ActiveSheet.Cells.SpecialCells(xlCellTypeComments)
x = Zelle.Left + Zelle.Width - a
y = Zelle.Top
Set sh = ActiveSheet.Shapes.AddShape _
(msoShapeRightTriangle, x, y, a, a)
With sh
.Flip msoFlipHorizontal
.Flip msoFlipVertical
.Line.Visible = msoFalse
.Name = "shpIndikator_" & iInd
With .Fill
.Visible = msoTrue
.Solid
.ForeColor.SchemeColor = 8 '=schwarz, Rot=10
.Transparency = 0#
End With
End With
iInd = iInd + 1
Next Zelle
Range("A1").Select
End Sub

Gruß
Udo
Anzeige
AW: Knötterkopp....
Ulf
Na bitte, geht doch, wenngleich es einen Fehler gibt, wenns keine Zellen mit Kommentar gibt!
Ulf
Danke für den code, dachte es geht auch ohne.Gruß
22.07.2004 07:25:05
ray
d
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Excel-Kommentare drucken oder ausblenden: Praktische Tipps


Schritt-für-Schritt-Anleitung

Um Excel-Kommentare beim Drucken anzuzeigen oder auszublenden, kannst Du folgende Schritte befolgen:

  1. Öffne Deine Excel-Datei: Stelle sicher, dass die Datei, die Du drucken möchtest, geöffnet ist.
  2. Gehe zu den Druckeinstellungen: Klicke auf "Datei" und dann auf "Drucken".
  3. Druckoptionen anpassen:
    • Um ohne Kommentare zu drucken, wähle im Dropdown-Menü unter "Einstellungen" die Option „Drucken ohne Kommentare“.
    • Um mit Kommentaren zu drucken, klicke auf "Seitenlayout" und dann auf "Drucken" unter dem Abschnitt „Kommentare“.
  4. Druckvorschau überprüfen: Überprüfe in der Druckvorschau, ob die Kommentare wie gewünscht angezeigt werden.
  5. Druck starten: Wenn alles eingestellt ist, klicke auf "Drucken".

Häufige Fehler und Lösungen

  • Fehler: Excel-Kommentare werden nicht angezeigt.
    Lösung: Überprüfe unter „Seitenlayout“ die Druckoptionen. Stelle sicher, dass „Kommentare drucken“ aktiviert ist.

  • Fehler: Kommentare erscheinen nicht in der Druckvorschau.
    Lösung: Stelle sicher, dass Du die richtige Druckoption gewählt hast. Versuche, den Drucker neu zu starten und die Einstellungen erneut zu überprüfen.


Alternative Methoden

Eine alternative Methode, um Excel-Kommentare zu exportieren oder auszudrucken, ist die Verwendung von VBA (Visual Basic for Applications). Hier ein Beispiel, um ein rotes Dreieck rechts oben in Zellen mit Kommentaren hinzuzufügen:

Sub Indikator_rein()
    Dim iInd As Integer, Zelle As Range, sh As Shape
    Dim x, y, a
    a = 4.5
    For Each Zelle In ActiveSheet.Cells.SpecialCells(xlCellTypeComments)
        x = Zelle.Left + Zelle.Width - a
        y = Zelle.Top
        Set sh = ActiveSheet.Shapes.AddShape _
        (msoShapeRightTriangle, x, y, a, a)
        With sh
            .Flip msoFlipHorizontal
            .Flip msoFlipVertical
            .Line.Visible = msoFalse
            .Name = "shpIndikator_" & iInd
            With .Fill
                .Visible = msoTrue
                .Solid
                .ForeColor.SchemeColor = 8 '=schwarz, Rot=10
                .Transparency = 0#
            End With
        End With
        iInd = iInd + 1
    Next Zelle
    Range("A1").Select
End Sub

Praktische Beispiele

  1. Excel mit Kommentaren drucken: Wenn Du eine Tabelle mit vielen Notizen hast, kannst Du die oben genannten Schritte verwenden, um sicherzustellen, dass diese beim Druck sichtbar sind.

  2. Excel Notizen drucken: Um Notizen zu drucken, gehe zu „Seitenlayout“ und wähle die Option „Notizen drucken“. Dies ist besonders nützlich, wenn Du zusätzliche Erklärungen oder Anmerkungen zu Deinen Daten geben möchtest.


Tipps für Profis

  • Nutze die Druckvorschau: Überprüfe immer die Druckvorschau, bevor Du den Druckauftrag startest, um sicherzustellen, dass alles nach Deinen Vorstellungen aussieht.
  • VBA verwenden: Automatisiere den Prozess mit VBA, um effizienter zu arbeiten, besonders wenn Du regelmäßig mit Dokumenten mit vielen Kommentaren arbeitest.
  • Exportieren von Kommentaren: Wenn Du die Excel-Kommentare für Berichte benötigst, kannst Du diese auch in ein Word-Dokument exportieren und dort formatieren.

FAQ: Häufige Fragen

1. Wie kann ich Excel-Kommentare exportieren?
Du kannst Excel-Kommentare in ein Word-Dokument exportieren, indem Du die Kommentare kopierst und in Word einfügst.

2. Was kann ich tun, wenn in der Druckvorschau keine Kommentare angezeigt werden?
Überprüfe die Druckeinstellungen und stelle sicher, dass die Option „Kommentare drucken“ aktiviert ist. Wenn Du die Kommentare immer noch nicht siehst, versuche, Excel neu zu starten.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige