Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kommentarindikatoren bei Seitenansicht

Forumthread: Kommentarindikatoren bei Seitenansicht

Kommentarindikatoren bei Seitenansicht
10.01.2005 15:18:27
Reini
Hallo an Alle,
Ich versuche die Kommentarindikatoren in der Seitenansicht (wie auch im Ausdruck) sichtbar zu machen. Im Tabellenblatt sind die "roten Ecken" sichtbar, sobald ich aber in die Seitenansicht gehe, sind die Kommentarindikatoren verschwunden (Obwohl unter "Seite einrichten/Tabelle/Kommentare": "Wie auf Blatt angezeigt" eingestellt). Auch wenn ich unter "Optionen/Ansicht/Kommentare" die Option "Kommentare und Indikatoren" wähle, sehe ich zwar die Kommentare, die Indikatorecken bleiben aber verschwunden.
Weiß jemand hiezu einen Rat?
Danke im Voraus
Gruß Reini
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kommentarindikatoren bei Seitenansicht
u_
nur mit VBA:
Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False
Call Indikator_rein
ActiveSheet.PrintOut
Cancel = True
Call Indikator_raus
Application.EnableEvents = True
End Sub



Private 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



Private 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

Anzeige
AW: Kommentarindikatoren bei Seitenansicht
reini
Danke !
Funktioniert super !
Gruß Reini
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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