In einer Text Spalte (M) müsste ich nach einem einzelnen Zeichen (*) Suchen [ Bsp. Abcd*V oder *abcfd ] und dann bei vorhanden sein die jeweilige Zelle(n) einfärben.
Ich wäre Dankbar für eure Hilfe
M | |
1 | |
2 | sdsdsd |
3 | dsdlsdsl*ksdks |
4 | dsjdjs |
5 | nvjvj* |
6 | *sdjhgjhas |
7 | ssd |
8 | |
9 | |
10 | |
11 | |
12 | |
13 |
Bedingte Formatierung Haupttabelle 1 | |||||||||||
Wird angewendet auf | Nr. Bed. Regeltyp | Operator | Formel1 | Formel2 | Format Schrift Füll-farbe | Unterstrichen | Schrift- farbe | Muster | Muster-farbe | Typ | Bereich |
$M$2:$M$10 | 01.Bed.: Formel ist | =ISTZAHL(FINDEN("*";M2)) | 255 | 2 | $M$2:$M$10 |
Bedingte Formatierung Haupttabelle 2 | oberere/unterer Bereich | ||||||||
Wird angewendet auf | Nr. Bed. | Format Zelle | Anhalten | Auswahl | Anzeige | Anzahl | Durchschnitt | Typ | Bereich |
$M$2:$M$10 | 01.Bed. | Falsch | 2 | $M$2:$M$10 |
http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip |
http://Hajo-Excel.de/tools.htm |
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007 |
Add-In-Version 25.14 einschl. 64 Bit |
Sub Makro2()
Dim TB, Sp As Integer, Zelle
Set TB = Sheets("Tabelle1")
Sp = 13 'Spalte M
With TB
'Reset
.Columns(Sp).Interior.Pattern = xlNone
If WorksheetFunction.CountIf(.Columns(Sp), "<>") > 0 Then
For Each Zelle In .Columns(Sp).SpecialCells(xlCellTypeConstants, 2) ' alle Zellen mit Text
If InStr(Zelle, "*") Then
Zelle.Interior.Color = 255 'rot
End If
Next
End If
End With
End Sub