Inhalt vergleichen mit Menge

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
- Bereich markieren
- bedingte Formatierung
- Formel zur Ermittlung..:


=ISTZAHL(FINDEN("WortA";B2))*NICHT(ISTZAHL(FINDEN("WortB";B2)))+ISTZAHL(FINDEN("WortB";B2)) *NICHT(ISTZAHL(FINDEN("WortA";B2)))

- Format festlegen

Tabelle1

	B
2	Hier steht WortA und WortB
3	Nur WortA
4	Hier steht WortA und WortB
5	Nur WortB
6	Hier steht WortA und WortB
7	Nur WortA
8	Nur WortA
9	Hier steht WortA und WortB
10	Hier steht WortA und WortB
11	Hier steht WortA und WortB

die bedingte Formatierung Fülleffekte, Symbole, Datenbalken
werden in dieser Tabelle nicht dargestellt
Schriftart wird in dieser Tabelle nicht dargestellt

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
$B$2:$B$11	01.Bed.: Formel ist		=ISTZAHL(FINDEN("WortA";B2))NICHT(ISTZAHL(FINDEN("WortB";B2)))+ISTZAHL(FINDEN("WortB";B2))NICHT(ISTZAHL(FINDEN("WortA";B2)))>0		5296274					2	$B$2:$B$11

Bedingte Formatierung Haupttabelle 2					oberere/unterer Bereich
Wird angewendet auf	Nr. Bed.	Format Zelle	Anhalten	Auswahl	Anzeige	Anzahl	Durchschnitt	Typ	Bereich
$B$2:$B$11	01.Bed.		Falsch					2	$B$2:$B$11

Die Bedingungen wurden mit Excel-Version ab 2007 ausgelesen.

Schriftformate
Zelle	Rot	Grün	Blau	Color	Stil	Unterstreichung	Effekte	Durchgestrichen	Schriftart
B2:B11	0	0	0	0					Arial Unicode MS

Zellen mit Schriftformatierung automatisch werden nicht dargestellt

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

LG UweD

Sub Venti() Dim arr, Z Dim objRange As Object Dim i As Integer Dim Lr As Integer Lr = Cells(Rows.Count, "A").End(xlUp).Row arr = Array("Kanalventilator", "Rohrventilator", "RLT-Gerät", "Entrauchungsventilator", " _ Dachventilator", "Rauchableitungsventilator", "Ventilator") R = 0 For i = 16 To Lr For Each Z In arr If Cells(i, 2).Value = Z Then R = R + 1 End If If R > 1 And Cells(i, 2).Value = Z Then Cells(i, 2).Interior.Color = RGB(248, 105, 107) Else Cells(i, 2).Interior.Color = RGB(255, 255, 255) End If Next Next End Sub

Public Sub aaa() Dim i As Long Application.ScreenUpdating = False With Worksheets("Tabelle1") For i = 16 To .Cells(.Rows.Count, 1).End(xlUp).Row Select Case .Cells(i, 2).Value Case "Kanalventilator", "Rohrventilator", "RLT-Gerät", "Entrauchungsventilator", _ "Dachventilator", "Rauchableitungsventilator", "Ventilator" If WorksheetFunction.CountIf(.Columns(2), .Cells(i, 2)) > 1 Then .Cells(i, 2).Interior.Color = RGB(248, 105, 107) Else .Cells(i, 2).Interior.Color = RGB(255, 255, 255) End If Case Else End Select Next i End With End Sub

…weshalb es hier auch zu unterschiedlichen Lösungsvorschlägen kam, Jens.
Es ist in solchen Fällen meist besser, eine kleine BspDatei zV zu stellen, damit die Ausgangslage klarer wird. Fraglich ist nämlich, ob die Begriffe im Array tatsächlich immer einzeln in den B:B-Zellen stehen oder in mehrwortigen Texten vorkommen und ob in den FolgeSpalten noch andere Daten stehen, die unbedingt erhalten bleiben sollen. Anderenfalls wäre es ggf tatsächlich am einfachsten, die Duplikate zu entfernen. Ansonsten käme evtl auch eine Aggregierung für FolgeSpalten oder zumindest eine Sortierung infrage.
Allerdings deutet für mich bisher einiges darauf hin, dass tatsächlich EinzelBegriffe in den Zellen stehen und in allen Zellen nicht jeder Begriff nur maximal 1× stehen soll, sondern insgesamt nur einer der Begriffe genau 1× auftreten darf und in den anderen Zellen dann keiner der anderen. Falls diese Annahme richtig ist, wäre sie ebenso erklärungsbedürftig wie andere, je nachdem, ob es auch noch pro Zeile FolgeWerte gibt.
So interpretationsvariabel wie die Aufgabenstellung ggw ist, läuft jeder Lösungsvorschlag Gefahr, unbrauchbar zu sein. Leider hast du dich ja auch nicht mehr zum aktuellen Stand geäußert, so dass ich schon deshalb auf einen weiteren verzichte.
Gruß, Luc :-?
Der beste Beweis für intelligentes Leben im Universum ist, dass noch niemand versucht hat, Kontakt mit uns aufzunehmen. H.Lesch, 2018, Sonneberg
Deshalb Intelligenz steigern mit

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread