Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
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
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kommentare formatieren

Forumthread: Kommentare formatieren

Kommentare formatieren
05.10.2004 15:23:09
Christine
Hallo zusammen,
ich benötige dringend Hilfe! Ich suche nach einem Weg, wie ich auf einem Arbeitsblatt alle Kommentare auf einmal formatieren kann. Ich habe das problem, dass ich eine Tabelle mit sehr vielen Kommentaren überarbeiten soll. Standardmäßig sind in Excel die Kommentare so voreingestellt, dass sie unabhängig von der größe der zughörigen Zelle sind. Ich hätte aber gerne alle Kommentare so formatiert, dass sie abhängig von der größe der zugehörigen Zelle sind. Gibt es einen Weg, bei dem man nicht alle Kommenatre händisch formatieren muss?
Vielen Dank für die Antwort,
Christine
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Kommentare formatieren
K.Rola
Hallo,
Option Explicit
Sub Alle_Kommentare()
Dim rngComments As Range, c As Range
Set rngComments = Cells.SpecialCells(-4144)
On Error GoTo ENDE
For Each c In rngComments
c.Comment.Shape.Placement = 1
Next
Exit Sub
ENDE:
MsgBox "Keine Zellen mit Kommentaren gefunden!          ", 64, "gebe bekannt..."
End Sub

Gruß K.Rola
Anzeige
Kleiner Fehler...
K.Rola 
Option Explicit
Sub Alle_Kommentare()
Dim rngComments As Range, c As Range
On Error GoTo ENDE
Set rngComments = Cells.SpecialCells(-4144)
For Each c In rngComments
c.Comment.Shape.Placement = 1
Next
Exit Sub
ENDE:
MsgBox "Keine Zellen mit Kommentaren gefunden!          ", 64, "gebe bekannt..."
End Sub

Anzeige
;

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