Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1628to1632
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1628to1632
1628to1632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vergleich 2er Zelleninhalte und färben...

Vergleich 2er Zelleninhalte und färben...
29.06.2018 07:16:52
Klaus
Guten Morgen zusammen :)
Ich habe derzeit einen totalen Blackout was VBA angeht und weiß leider nicht einmal, wie ich für Google oder für ein Forum meine Frage korrekt formulieren soll.
Daher versuche ich nun mein Anliegen hier verständlich auszudrücken und hoffe auf eure Hilfe.
Ich habe folgende Tabelle:
https://www.herber.de/bbs/user/122379.xlsm
Zu beachten ist:
1. Die Tabelle ist nur ein Beispiel. Das Original hat ca. 20000 Zeilen
2. Die Tabelle wird täglich neu generiert
3. Spalte A wird von einem Programm generiert und der Inhalt der Zelle lässt sich nicht ändern.
4. Spalte C wird manuell eingefügt
5. Zum Testen habe ich in A25 einen Fehler eingebaut. Der Wert aus C25 wird hier nicht gefunden!
Was ist nun mein (bzw. mein Chef sein) Anliegen:
Der Inhalt von Zelle A2 soll nach dem Wert in Zelle C2 durchsucht werden. Wird genau dieser Wert gefunden soll Zelle D2 grün gefärbt werden. Wird der Wert nicht gefunden soll Zelle D2 rot gefärbt werden.
Next
Der Inhalt von Zelle A3 soll nach dem Wert in Zelle C3 durchsucht werden. Wird genau dieser Wert gefunden soll Zelle D3 grün gefärbt werden. Wird der Wert nicht gefunden soll Zelle D3 rot gefärbt werden.
Next
usw. ...
Für mich problematisch ist, dass in jeder Zeile nach einem anderen Wert aus Spalte C gesucht werden muss. Auch wenn es im Beispiel so wirkt, jeder Wert einer Zelle innerhalb einer Zeile ist unterschiedlich. Daher kann ich nicht mit einer "Standartschleife" arbeiten *denk*
Da mir, wie erwähnt, die entsprechenden Suchbegriffe fehlen, habe ich bisher nichts gefunden, was jede Zeile prüft und berücksichtigt, dass in jeder Zelle pro Zeile ein andere Wert steht.
Ich hoffe, ich konnte mein Anliegen verständlich ausdrücken und somit auf eine Antwort von euch hoffen.
Danke vorab :)

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bed. Formatierung?
29.06.2018 07:44:43
hary
Moin
Kannst du nicht bed. Formatierung nutzen?
Fuer Gruen: =SUCHEN(C2;A2)
Fuer Rot: =ISTFEHLER(SUCHEN(C2;A2))
Mit VBA nimmst du eine Schleife und pruefst mit instr
gruss hary
AW: Vergleich 2er Zelleninhalte und färben...
29.06.2018 08:58:03
Rob
Mit Bedingter Formatierung kommst nicht weiter, weil in Spalte A noch andere Daten fortlaufend in die Zellen geschrieben sind.
Wie Hary erwähnt hat, kannst Du mit InStr prüfen ob der Zellinhalt von C2 in A2 enthalten ist. Instr gibt 0 aus, wenn nichts gefunden wurde -> deshalb anschließend mit einer if then else-Schleife die Zelle in Spalte D einfärben.

Sub Einfaerben ()
Dim r As Range
Dim FindC
For Each r In Intersect(UsedRange, Range("C:C"))
FindC = InStr(CStr(r.Offset(0, -2)), CStr(r))
If FindC  0 Then
r.Offset(0, 1).Interior.Color = RGB(146, 208, 80) 'Zelle in Spalte D in grün einfä _
rben
Else
r.Offset(0, 1).Interior.Color = RGB(255, 0, 0) 'Zelle in Spalte D in rot einfärben
End If
Next
End Sub
Wenn Du den Code über ein Modul laufen lässt, musst noch auf das Worksheet verweisen.
Anzeige
AW: @Rob
29.06.2018 09:07:22
hary
Moin Rob
Wie kommst du darauf?
"Mit Bedingter Formatierung kommst nicht weiter"
ansonsten eine Moeglichkeit: 
Sub faerben()
Dim i As Long
With Worksheets("Tabelle1") '-- ggf. Blattname anpassen
For i = 2 To .Cells(Rows.Count, 3).End(xlUp).Row
.Cells(i, 4).Interior.Color = IIf(InStr(1, .Cells(i, 1), .Cells(i, 3)), vbGreen, vbRed)
Next
End With
End Sub

gruss hary
AW: @Rob
29.06.2018 09:13:09
Rob
Moin Hary,
wie soll das mit Bedingter Formatierung funktionieren?
PS: Schöne Idee mit IIf! Der Code wird dadurch schlanker.
AW: @Rob
29.06.2018 09:18:49
Klaus
Da war ich mit der Antwort wohl etwas zu langsam ^^
Also:
Die bed. Formatierung funktioniert. Auch über die 20000 Zeilen.
Der "schlankere" Code funktioniert auch super und sieht auch super aus.(Button habe ich hinbekommen. Hab einfach zu kompliziert gedacht)
Ich werde beides mal meinem Chef zeigen. Mal schauen, was er sagt ;)
Nochmals vielen Dank. Mein Anliegen ist von euch beiden sehr zufriedenstellend gelöst worden *Thumbs up*
Anzeige
AW: @Rob
29.06.2018 09:22:36
hary
Moin Rob
Wie ich im vorigem Thread die Formeln geschrieben habe.
Mit =suchen()
gruss hary
AW: @Rob
29.06.2018 09:39:23
Rob
Hm, wenn ich über Bedingte Formatierung, Regeln zum Hervorheben, Gleich die Formel =Suchen(C2;A2) eingebe, funktioniert es nicht. Nur die Istfehler-Suche hebt er dann farblich hervor. Was mache ich falsch?
AW: @Rob
29.06.2018 10:08:19
Klaus
Bed. Formatierung - Neue Regel - Formel zur Ermittlung der zu Formatierenden Zellen verwenden - Formel eintragen - Formatierung wählen - funktioniert :)
AW: @Rob
29.06.2018 10:18:57
Rob
Danke.
Dann würde ich aber auf jeden Fall die Bedingte Formatierung wählen aber wenn Dein Chef lieber noch nen Button drücken will, dann kann ich das auch gut verstehen. :-)
Anzeige
AW: @Rob
29.06.2018 10:11:20
hary
Moin
Hab nur 2007.
Reiter"Bedingte Formatierung/Formel zur Ermittlung der zu formatierenden Zellen verwenden
da Formel eintragen: =SUCHEN(C2;A2)
und Farbe festlegen.
gruss hary
AW: Vergleich 2er Zelleninhalte und färben...
29.06.2018 09:10:10
Klaus
Vielen Dank für eure Antworten.
Die bed. Formatierung habe ich sofort getestet und sie funktioniert tadellos.
Ein Makro wäre natürlich für meinen Chef "besser". (Er steht auf sowas, auch wenn er es selber nicht kann/begreift ^^)
Danke für das Makro. Wenn ich diesen in "Tabelle 1" einfüge und einen Button als Modul erzeuge, wie müste ich das anstellen? (Hänge gerade bei dem "... musst noch auf das Worksheet verweisen.") Wo genau muss dieser Verweis platziert werden im Code? Läuft das mit "WITH Worksheet(Tabelle1)" ?
Anzeige
AW: Vergleich 2er Zelleninhalte und färben...
29.06.2018 09:16:44
Rob
Wenn Du den Code direkt in Tabelle1 eingibst, musst nichts mehr verweisen. Dann passt das so.
Ansonsten mit With Sheet oder Tabelle1.UsedRange, Tabelle1.Range("C:C") aus dem Modul verweisen.
AW: Vergleich 2er Zelleninhalte und färben...
29.06.2018 09:18:27
hary
Moin
Wenn der Button auf dem Tabellenblatt liegt. Nimm ein ActiceX Steuerelement.
In den Code des Button setzt du: 
Dim i As Long
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
Cells(i, 4).Interior.Color = IIf(InStr(1, Cells(i, 1), Cells(i, 3)), vbGreen, vbRed)
Next
sollte er auf einem anderen Blatt liegen, musst du das Blatt zuweisen. 
Dim i As Long
With Worksheets("Tabelle1") '-- ggf. Blattname anpassen
For i = 2 To .Cells(Rows.Count, 3).End(xlUp).Row
.Cells(i, 4).Interior.Color = IIf(InStr(1, .Cells(i, 1), .Cells(i, 3)), vbGreen, vbRed)
Next
End With

gruss hary
Anzeige
warum 2 Farben? nur falsche rot-genügt doch.
29.06.2018 11:13:31
robert
Hi,
stell Dir vor, alles ist OK- dann hast DU Zb: eine grüne Wiese... :-)
Daher-meine bescheidene Meinung- nur falsche färbig
Gruß
robert
AW: warum 2 Farben? nur falsche rot-genügt doch.
29.06.2018 11:21:58
Klaus
Ich persönlich würde mir die fehlerhaften Zeilen in ein zweites Sheet schreiben lassen. Aber Cheffchen ist mit den beiden Ergebnissen zufrieden also soll es mich nicht weiter kümmern ;-p
Bedignte Formatierung per Code einfügen
29.06.2018 13:32:34
Daniel
Hi
das ganze geht ganz einfach so:
1. erstelle einen ActiveX-Commandbutton
2. aktiviere den Entwurfsmodus und klicke den Button mit der rechten Maustaste an und wähle: Code anzeigen
3. füge in das CLICK_makro des Buttons diesen Code ein: 
Private Sub CommandButton1_Click()
Me.Cells.FormatConditions.Delete
With Me.UsedRange
.Interior.Color = vbGreen
With .FormatConditions.Add(Type:=xlExpression, Formula1:="=ISTFEHLER(FINDEN(Z(0)S3;Z(0)S1))")
.Interior.Color = 255
End With
End With
End Sub

Gruß Daniel
der Code erzeugt auf Konpfdruck die entsprechende Bedingte Formatierung.
die restlichen Zellen werden grün.
Die Formel ist in der alternativen Z1S1-Bezugsart angegeben, dann funktioniert sie auch, wenn die usedrange mal nicht in Zeile 1 beginnt.
Anzeige

303 Forumthreads zu ähnlichen Themen

Letzte gefüllte Zeile in einem Feld anzeigen
Hendrik

Hallo zusammen,
bei einer Exceltabelle, die aus ca. 40 freien Zeilen besteht, die sich über die Zeit füllen, soll in Zeile 41 immer die Zahl der letzten gefüllten Zeile angezeigt werden.
Ist das möglich?
Danke im voraus!
Hendrik
28.08.2008 18:36:42
Thread-ID: 1005564
4 Beiträge
Anzeige
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Tasten während der Eingabe in einer Zelle abfragen
Arthur

Hallo.
Wie kann man in Excel auf die Eingabe in einer Zelle schon beim Tastendruck reagieren?
Beispiel: Schon während der Eingabe von Werten soll reagiert werden. Bspw. ist eine fünfstellige Bestelnummer einzutragen. Nachdem fünf Ziffern eingetragen sind soll automatisch in die nächste...
22.10.2008 11:44:52
Thread-ID: 1018286
4 Beiträge
Anzeige
mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 Beiträge
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
hochzählen in einer Zelle
Tobias

Guten Morgen zusammen,
ich möchte in einer Zelle einen Wert "hochzählen" lassen. Also z.B. in Zelle A1 soll jeweils alles zusammen addiert werden was in Zelle B1 eingegeben wurde.
Ich hoffe das ist einigermaßen verständlich...
Vielen Dank im Voraus für Eure Tipps!
20.12.2008 10:26:00
Thread-ID: 1034350
12 Beiträge
Schriftfarben in Zellen
Ulli

Hallo Zusammen,
beim letzen mal wurde mir sehr schnell, sehr kompetent und sehr freundlich geholfen. Dafür möchte ich mich nochmals bedanken.
Hier mein Problem: Ich habe eine Tabelle mit verschiedenen Farben in einer Zelle. Diese Farben entsprechen jedoch nicht den originalen Schriftfar...
19.01.2009 07:57:00
Thread-ID: 1041313
5 Beiträge
zählen bestimmter Zeichen in einer Zelle
Georg

Hallo Excel Welt,
wie kann ich die Anzahl bestimmter Zeichen (z.B. Kommas) in einer Zelle zählen?
Beispiel:
A2 = 12, 34, 2, 134
B2 = 3 (es sind drei Kommas in der Zelle A2) = dafür benötige ich die Lösung
Oder kann ich die Anzahl der (durch Kommas getrennten) Zahlen direkt...
21.01.2009 16:03:36
Thread-ID: 1042267
6 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
3
3
7
2
6
11
4
5
2
1
3
6
5
6
13
5
4
4
7
5
7
6
3