Teil im Text suchen

Forumthread: Teil im Text suchen

Teil im Text suchen

08.12.2006 09:13:56

Klaus

Guten Morgen zusammmen
Ich möchte in einer Tabelle (Länge variabel) in Spalte "C" die Zellen überprüfen, in denen das Wort "Ergebnis" vorkommt. (z.B. Hans Meier Ergebnis). Wenn "Ergebnis" gefunden wurde, sollen die Zellen A:P grau eingefärbt werden.
Danke für Eure Hilfe im Voraus
Gruss Klaus

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Teil im Text suchen

08.12.2006 09:37:19

HermannZ
AW: Teil im Text suchen

08.12.2006 09:47:43

Klaus
AW: Teil im Text suchen

08.12.2006 09:57:50

Rudi
AW: Teil im Text suchen

08.12.2006 10:09:23

yps
AW: Teil im Text suchen

08.12.2006 10:17:05

Rudi
AW: Teil im Text suchen

08.12.2006 10:21:20

yps
AW: Teil im Text suchen

08.12.2006 10:16:56

Klaus
AW: Teil im Text suchen

08.12.2006 10:03:36

yps

AW: Teil im Text suchen

08.12.2006 09:37:19

HermannZ

Hallo Klaus;
erste Zeile A bis P markieren, Bedingte Formatierung-Formel ist- folgende Formel eingeben; =ISTZAHL(SUCHEN("Ergebnis";$C1)) und ok.
Gruß HermannZ

AW: Teil im Text suchen

08.12.2006 09:47:43

Klaus

Hallo Hermann
Ich suche eigendlich nach einer VBA-Lösung. Es soll ja die gesamte Tabelle in Spalte "C" nach "Ergebnis" durchsucht werden.
Gruss Klaus

AW: Teil im Text suchen

08.12.2006 09:57:50

Rudi

Hallo,


Sub ttt()
Dim c As Range
For Each c In Range(Cells(1, 3), Cells(65536, 3).End(xlUp))
If c.Value Like "*Ergebnis*" Then
Range(Cells(c.Row, 1), Cells(c.Row, 16)).Interior.ColorIndex = 15
End If
Next c
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Teil im Text suchen

08.12.2006 10:09:23

yps

hi,
warum benutzt du absolute Zahlen ?
rows.count ist auch in der nächsten Version gültig !!
oder sind das Arbeitsbeschaffungsmaßnahmen für zukünfige Generationen ? ;-)
cu Micha

AW: Teil im Text suchen

08.12.2006 10:17:05

Rudi

Hallo,
weil sich 65536 so schön schnell auf'm Zifferblock tippen lässt.
;-))
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Teil im Text suchen

08.12.2006 10:21:20

yps

hi,
kannst ja schon mal üben:
1048576
*grins*
cu Micha

AW: Teil im Text suchen

08.12.2006 10:16:56

Klaus

Hallo Rudi
Danke für Deine Hilfe. Es ist genau das, was ich brauche...
Gruss Klaus

AW: Teil im Text suchen

08.12.2006 10:03:36

yps

hi,
so in etwa:


Sub bla()
Dim Zelle As Range
With Worksheets("Tabelle1")
For Each Zelle In .Range("C1:C" & .Cells(Rows.Count, 3).End(xlUp).Row)
If InStr(Zelle.Value, "Ergebnis") > 0 Then
.Range(Cells(Zelle.Row, 1), Cells(Zelle.Row, 16)).Interior.ColorIndex = 3
End If
Next Zelle
End With
End Sub

cu Micha

Beliebteste Forumthreads (12 Monate)

Forumthread: Teil im Text suchen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread