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

Farben und Werte

Farben und Werte
11.04.2005 15:40:08
Michel
Hi,
habe in meiner Tabelle (Spalte A) Formelwerte aus anderen Tabellen. Wenn in dieser Spalte A nun die Begriffe "Mannheim" und/oder "Heidelberg" auftauchen, soll die Schriftart Rot, Fett und Unterstrichen sein.
Mit folgendem Code funkt es, wenn NUR die Worte in der Spalte A stehen - also keine Formelwerte...
what can I do?

Function faerben()
suchen1 = "Mannheim"
suchen2 = "Heidelberg"
Set Bereich = Worksheets(ActiveSheet.Name).Range("A:A")
Bereich.Font.ColorIndex = 1
Bereich.Font.Underline = False
Bereich.Font.Italic = False
Bereich.Font.Bold = True
With Bereich
Set c = .Find(suchen1, lookat:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Font.ColorIndex = 3
c.Font.Underline = True
c.Font.Italic = True
c.Font.Bold = True
c.Font.Size = 11
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
Set c = .Find(suchen2, lookat:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Font.ColorIndex = 3
c.Font.Underline = True
c.Font.Italic = True
c.Font.Bold = True
c.Font.Size = 11
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Function

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

Betreff
Datum
Anwender
Anzeige
AW: Farben und Werte
11.04.2005 15:44:55
Hajo_Zi
Hallo Michel,
mache es ohne VBA mit Format, bedingte Formatierung.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


LookIn:=xlValues
11.04.2005 15:48:56
MichaV
Hi,
versuch mal so. LookIn:=xlValues
Gruß- Micha
AW: Farben und Werte
11.04.2005 15:50:02
Martin
Hallo Michel,
m.w. wird standardmäßig "in Formeln" gesucht. Das mußt Du auf "in Werte" umstellen, dann sollte es klappen.
Versuche statt
Set c = .Find(suchen1, lookat:=xlWhole)
Set c = .Find(suchen1, lookat:=xlWhole, LookIn:=xlValues)
(ungetestet)
Gruß
Martin Beck
Anzeige
Danke
11.04.2005 15:53:01
Michel
Hi Martin,
funkt perfekt...danke
auch an Hajo und MichaV dank...
Michel

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige