Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
828to832
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
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Erste Zeile im Kommentar in 'Fettschrift' - VBA?

Erste Zeile im Kommentar in 'Fettschrift' - VBA?
17.12.2006 08:12:50
Georg
Hallo liebes Forum, schönen 3. Advent wünsche ich. Mich lässt da ein Problem seit längeren keine Ruh. Wie kann man die erste Zeile eines Kommentars per VBA in Fettschrift bekommen? Mit der Hand kann ich es ja auch machen indem ich die erste Zeile markiere und dann auf der Formatleiste 'Fett' drücke. Der Makrorekorder erfasst leider nicht die erste Zeile. Wäre wirklich genial wenn hier einer einen Tipp dazu hätte.
lg, Georg

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

Betreff
Datum
Anwender
Anzeige
AW: Erste Zeile im Kommentar in 'Fettschrift' - VBA?
17.12.2006 09:10:38
Luschi
Hallo Georg,
das geht so:
    s = Worksheets("Tabelle1").Range("D4").Comment.Text
n = InStr(1, s, Chr(10), vbTextCompare) - 1
With Worksheets("Tabelle1").Range("D4").Comment.Shape.TextFrame.Characters(Start:=1, Length:=n).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 10
End With
Gruß von Luschi
aus klein-Paris
AW: Erste Zeile im Kommentar in 'Fettschrift' - VB
17.12.2006 10:33:02
Georg
tmp = InStr(1, Worksheets(1).Range("B" & ActiveCell.row).Comment.Text, Chr(10), vbTextCompare) - 1
Worksheets(1).Range("B" & ActiveCell.row).Comment.Shape.TextFrame.Characters(Start:=1, length:=tmp).Font.FontStyle = "Fett"
PERFEKT! DANKE!
eigentlich auch völlig logisch, verdammt ;-)
Anzeige
Versteh ich nicht! Hatte umgekehrtes Problem,...
17.12.2006 12:39:45
Luc:-?
...meine Herren,
1.Kommentarzeile standardmäßig fett, weil Automatik hier username:vbLf einträgt - ...aber natürlich längst gelöst.
Gruß zum 3.
Luc :-?

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige