Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
528to532
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
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Formatierung einer bestimmen Zeichenfolge

Formatierung einer bestimmen Zeichenfolge
07.12.2004 10:38:40
Jens
Hallo zusammen,
ich benötige Eure Hilfe.
Ich möchte gerne die Formatierung in einer Excel Arbeitmappe die Zeichfolge ".." ändern. Diese Zeichenfolge soll dann mir roter schrift dargestellt werden.
Bsp: Sehr geehrter Her .., rufen sie uns bitte um .. zurück.
In diesem Beispiel soll nach ausführen des Makros die Schrift Schwarz bleiben, jedoch soll die beiden ".." rot dargestellt werden.Der gesamt Text befinde sich in einer Zelle.
Wer hat einen Lösungsvorschlag für mich.
Vielen Dank im voraus.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formatierung einer bestimmen Zeichenfolge
=Peter=
Hallo Jens,
ich bin hier nicht der Experte aber IMHO funktioniert das nicht.
Gruss
Peter
AW: Formatierung einer bestimmen Zeichenfolge
Galenzo
Mahlzeit,
bei mir funktioniert das hier:
Dim i As Integer
Do
i = InStr(i + 1, [a1], "..")
If i &gt 0 Then [a1].Characters(Start:=i, Length:=2).Font.ColorIndex = 3
Loop Until i = 0
Ist erstmal nur für Zelle A1, kannst du aber noch eine Schleife drumherum basteln, wenn du mehrere Zellen behandeln willst.
Viel Erfolg!
AW: Formatierung / Nachfrage an Galenzo
07.12.2004 12:17:48
Jens
Hallo,
es funktioniert. Vielen Dank dafür.
habe habe noch 2 Zusätzlich Fragen zu diesem Thema:
Wie musste ich den Code ändern, wenn
ich die Schriftart der Zeichenfolge auf 16 ändern möchte
ich die Zeichenfolge fett darstellen möchte.
Hast du dafür auch noch einen Tipp.
Mfg
Jens K.
Anzeige
AW: Formatierung / Anwort von Galenzo
Galenzo
ersetze das:
If i &gt 0 Then [a1].Characters(Start:=i, Length:=2).Font.ColorIndex = 3
durch diesen Block:
With [a1].Characters(Start:=i, Length:=2).Font
.ColorIndex = 3
.Size = 16
.FontStyle = "Fett"
End With
Damit werden die 3 besagten Eigenschaften gesetzt.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige