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

Ersetzen Format

Ersetzen Format
02.09.2003 09:07:23
Richi
Hallo alle zusammen
Ich habe folgendes Problem! Ich habe ein Makro mit dem ich in einer Spalte bestimmte Wörter ersetzte! Geht so weit ganz gut mit "ersetzten" ! (mit dem Makrorecorder aufgezeichnet und ergänzt) Nun möchte ich den Teil der Ersetzt wird fettmachen. Da ich aber nur einen Teil der Zelle ersetzte soll auch nur dieser Teil fett sein und mit der Formatoption lege ich ja das Format für die ganze Zelle fest? und nicht für den ersetzten Teil.
Danke Richi

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ersetzen Format
02.09.2003 10:52:59
Andreas Walter
Wenn ich Makro Recorder anwerfe, bekomme ich

With ActiveCell.Characters(Start:=1, Length:=3).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=4, Length:=3).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=7, Length:=3).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

Es muss lediglich Start und Length parameterisiert und Du hast es.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige