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

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
Anzeige
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
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige