Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
236to240
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
236to240
236to240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wörter, die mit Doppelpunkt enden, fett markieren

Wörter, die mit Doppelpunkt enden, fett markieren
03.04.2003 08:42:36
Tim
Hallo,

wie könnte man es erreichen, dass in einer Zelle (z.B. "A4") jedes Wort, das mit einem Doppelpunkt endet (z.B. "Trainer:") fett markiert wird. Die Lösung müsste in VBA sein.

Danke schonmal

Tim



7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Wörter, die mit Doppelpunkt enden, fett markieren
03.04.2003 08:54:49
MartinP

Ganz einfach: Menü Formatierung; Bedingte Formatierung; dann im Drop-Down-Feld auf "Formel ist" gehen und in das Textfeld:
=RECHTS(A4;1)=":"
reinschreiben.
Das ganze als Makro aufzeichnen - ergibt:


Range("A4").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression,

Formula1:= _
"=RECHTS($A$4;1)="":"""
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With

Martin

Re: Wörter, die mit Doppelpunkt enden, fett markieren
03.04.2003 09:04:23
Forum

Hallo Martin

hast Du da vielleicht was entscheidenes überlesen

"dass in einer Zelle (z.B. "A4") jedes Wort, das mit einem Doppelpunkt endet"

ich würde daraus lesen das in A4 mehrere Wörter stehen und einige mit ":" enden.

Gruß

Anzeige
Re: Wörter, die mit Doppelpunkt enden, fett markieren
03.04.2003 09:33:45
MartinP

zu meiner Schande muss ich eingestehen, dass ich das falsch verstanden habe hier eine noch nicht vollständig ausgetestete Lösung:

Dim start As Integer, ende As Integer, isBold As Boolean, str As String
Dim i As Integer
str = Cells(4, 1)

start = 1
For i = 1 To Len(str)
If Mid(str, i, 1) = ":" Then
ende = i
ActiveCell.Characters(start, ende + 1 - start).Font.FontStyle = "Fett"
start = i + 1
ElseIf Mid(str, i, 1) = " " Then
start = i + 1
End If
Next i

Und noch eine getestete Lösung;-))
03.04.2003 09:37:26
Boris

Tach zusammen,

hab auch grad fertig geschrieben (bezogen auf A1), daher hier mein Vorschlag:

Gruß Boris


Anzeige
Klappt beides...
03.04.2003 09:49:38
Tim

...vilen Dank!

: im Wort ausschließen:
03.04.2003 10:08:57
Boris

Hi Tim,

um noch : mitten im Wort auszuschließen:

Gruß Boris

danke...
03.04.2003 10:17:23
tim

...klappt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige