Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Groß und Kleinschreibung ignorieren

183 views
Skip to first unread message

Bernd Augustin

unread,
May 19, 2001, 11:51:18 AM5/19/01
to
Hallo NG's

wie kann ich folgende Formel so anpassen, daß alle Zellen farblich
hinterlegt werden, egal ob "Test", "test", "TEST" oder "tEsT".
Also wie z.B beim Suchen Groß und Kleinschreibung normal nicht beachtet
wird.

Sub Text()
Dim Zelle As Range
For Each Zelle In selection
If Zelle.Text = "Test" Then
Zelle.Interior.ColorIndex = 6
End If
Next Zelle
End Sub

Gruß Bernd

--
http://www.bernd-augustin.de/
Kostenlose AddIns für Excel


Konrad Bernhard

unread,
May 19, 2001, 12:33:35 PM5/19/01
to
Hallo Bernd

schreib einfach If lcase(Zelle.Text) = "test" .
lcase wandelt alle Zeichen in Kleinschreibung um.

Gruß
Konrad

Bernd Augustin <B_Aug...@t-online.de> schrieb in im Newsbeitrag:
9e64i4$aoj$07$1...@news.t-online.com...

Bernd Augustin

unread,
May 19, 2001, 12:53:24 PM5/19/01
to
Danke Konrad

es funktioniert.

Gruß aus der Pfalz Bernd

"Konrad Bernhard" <konradb...@t-online.de> schrieb im Newsbeitrag
news:9e66kv$c26$00$1...@news.t-online.com...

Berti

unread,
May 19, 2001, 12:39:19 PM5/19/01
to
Hallo Bernd,
Das was Du wahrscheinlich suchst:
Option Compare Text
VOR das Makro schreiben siehe Onlinehilfe

auch verwendbare Funktionen (beidseitig gleich umwandeln):
Wandelt Buchstaben auf verschiedene Arten:
StrConv
Wandelt alles in Großbuchstaben:
UCase
Wandelt alles in Kleinbuchstaben:
LCase

Gruß
Berti
--
Email: mailto:be...@bert-koern.de
Homepage: http://www.bert-koern.de/index.htm
Excel Tips & Tricks, sowie die Rottweiler Fasnet


"Bernd Augustin" <B_Aug...@t-online.de> schrieb im Newsbeitrag
news:9e64i4$aoj$07$1...@news.t-online.com...

0 new messages