Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1320to1324
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Alle Kommentare aus 2003 formatieren
24.07.2013 09:09:09
Judith
Guten Morgen,
nach der Übernahme einer Excel-Datei aus 2003 sind bei mir alle Kommentare "RIESENgross".
Die Fenster haben teilweise Grössen von 48 x 54 cm.
Ich suche ein Makro, dass alle Kommentar-Fenster auf 6x6 cm formatiert.
Liebe Excel-Freaks, einer von Euch Profis weiss das sicher....
Danke im Voraus
Judith

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Kommentare aus 2003 formatieren
24.07.2013 09:28:12
Mister
Hallo Judith,
als Ansatz:
Sub KommentarFormat()
Dim Cell As Range
For Each Cell In Cells.SpecialCells(xlCellTypeComments)
With ActiveCell.Comment.Shape.TextFrame
.Characters.Font.Name = "Tahoma"
.Characters.Font.Size = 8
.Characters.Font.Bold = True
.Characters.Font.ColorIndex = 53
.AutoSize = True
End With
ActiveCell.Comment.Shape.Fill.ForeColor.SchemeColor = 43  ' Hintergrundfarbe
Next
End Sub
Muss noch ein Wenig getweakt werden.
Gruß
Martin

AW: Alle Kommentare aus 2003 formatieren
24.07.2013 10:26:16
Judith
Hallo Martin,
es funktioniert, sofern ich ich - For Each ... und den Next herausnehme.
Aber wie kriege ich hin, dass alle Kommentare wie in Deinem Muster formatiert werden,
die markiert sind.
Es ist sehr aufwendig, ca 1000 Zellen einzeln zu markieren und dann jedesmal das Makro laufen zu lassen.
Danke
Judith

Anzeige
AW: Alle Kommentare aus 2003 formatieren
24.07.2013 11:05:50
Luschi
Hallo Judith,
der Vba-Code muß so lauten:

Sub KommentarFormat()
Dim Cell As Range
For Each Cell In Cells.SpecialCells(xlCellTypeComments)
With Cell.Comment.Shape.TextFrame
.Characters.Font.Name = "Tahoma"
.Characters.Font.Size = 8
.Characters.Font.Bold = True
.Characters.Font.ColorIndex = 53
.AutoSize = True
End With
Cell.Comment.Shape.Fill.ForeColor.SchemeColor = 43  ' Hintergrundfarbe
Next
End Sub
Gruß von Luschi
aus klein-Paris

31 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige