Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1352to1356
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
Inhaltsverzeichnis

Zellinhalt Vergleichen

Zellinhalt Vergleichen
11.03.2014 01:20:09
Bjoern
Hallo Zusammen,
ich bin ein paar Jahre raus aus VBA, deswegen tue ich mich gerade sehr schwer.
Vielleicht mag mir jemand ein wenig unter die Arme greifen. Dies wäre sehr lieb.
Bsp Datei hab ich beigefügt.
https://www.herber.de/bbs/user/89616.xlsx
Ich möchte, den Text in Spalte E zeile für zeile mit dem jeweiligen Text in Spalte D in der selben Zeile vergleichen. Wird der Text aus Spalte E in dem Text aus Spalte D gefunden. Soll die Zeile gelöscht werden.
So dass zum Schluss nur die Zeilen übrigbleiben, in denen der Text aus Spalte E nicht in der gleichen Zeile in der Spalte D zu finden ist.
Dabei könnte es sein, dass in der jeweiligen Zelle in Spalte D, mehr Text enthalten ist, als in der Spalte E.
Hoffe ich hab mich nicht zu kompliziert ausgedrück.
Vorab vielen Dank
Grüße
Björn

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Text in Text suchen
11.03.2014 04:21:30
Matthias
Hallo
Ob ich Dich richtig verstanden habe, weiß ich nicht.
Mit Suchen kannst Du feststellen ob eine Zeichenfolge in einer Anderen vorkommt
Ist die der Fall so wird die Position zurückgegeben(also eine Istzahl)
Dies könnte man nun so auswerten:
Tabelle1

 ABCDEFG
1AuftragsnummerSAP-BestellNrFahrzeugNummerBemerkung-FzgBemerkung AusstattungIndexAuswertung
280012345535-24000001100040000PointS BerlinPointS Berlin1WAHR
380012345635-24000002100040001 Vergölst Ffm2FALSCH
480012345735-24000003100040002asdjsdlkPoints Ham3FALSCH
580012345835-24000004100040003PointS LWLmehr Text und PointS LWL4WAHR
680012345935-24000005100040004PointS BerlinPointS Berlin und mehr Text5WAHR
780012346035-24000006100040005 Vergölst Ffm6FALSCH
880012346135-24000007100040006asdjsdlkPoints Ham7FALSCH
980012346235-24000008100040007PointS LWLPointS LWL8WAHR
1080012346335-24000009100040008PointS BerlinPointS Berlin9WAHR
1180012346435-24000010100040009 Vergölst Ffm10FALSCH
1280012346535-24000011100040010asdjsdlkPoints Ham11FALSCH
1380012346635-24000012100040011PointS LWLPointS LWL12WAHR
1480012346735-24000013100040012PointS BerlinPointS Berlin13WAHR
1580012346835-24000014100040013 Vergölst Ffm14FALSCH
1680012346935-24000015100040014asdjsdlkPoints Ham15FALSCH
1780012347035-24000016100040015PointS LWLPointS LWL16WAHR
1880012347135-24000017100040016asdjsdlkPoints Ham17FALSCH
1980012347235-24000018100040017PointS LWLPointS LWL18WAHR

Formeln der Tabelle
ZelleFormel
G2=(UND(D2<>"";E2<>"";ISTZAHL(SUCHEN(D2;E2))))
G3=(UND(D3<>"";E3<>"";ISTZAHL(SUCHEN(D3;E3))))
G4=(UND(D4<>"";E4<>"";ISTZAHL(SUCHEN(D4;E4))))
G5=(UND(D5<>"";E5<>"";ISTZAHL(SUCHEN(D5;E5))))
G6=(UND(D6<>"";E6<>"";ISTZAHL(SUCHEN(D6;E6))))
G7=(UND(D7<>"";E7<>"";ISTZAHL(SUCHEN(D7;E7))))
G8=(UND(D8<>"";E8<>"";ISTZAHL(SUCHEN(D8;E8))))
G9=(UND(D9<>"";E9<>"";ISTZAHL(SUCHEN(D9;E9))))
G10=(UND(D10<>"";E10<>"";ISTZAHL(SUCHEN(D10;E10))))
G11=(UND(D11<>"";E11<>"";ISTZAHL(SUCHEN(D11;E11))))
G12=(UND(D12<>"";E12<>"";ISTZAHL(SUCHEN(D12;E12))))
G13=(UND(D13<>"";E13<>"";ISTZAHL(SUCHEN(D13;E13))))
G14=(UND(D14<>"";E14<>"";ISTZAHL(SUCHEN(D14;E14))))
G15=(UND(D15<>"";E15<>"";ISTZAHL(SUCHEN(D15;E15))))
G16=(UND(D16<>"";E16<>"";ISTZAHL(SUCHEN(D16;E16))))
G17=(UND(D17<>"";E17<>"";ISTZAHL(SUCHEN(D17;E17))))
G18=(UND(D18<>"";E18<>"";ISTZAHL(SUCHEN(D18;E18))))
G19=(UND(D19<>"";E19<>"";ISTZAHL(SUCHEN(D19;E19))))


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Jetzt filterst Du nach der Spalte und lässt Dir die Zeilen anzeigen in denen WAHR steht.
Tabelle1

 ABCDEFG
1AuftragsnummerSAP-BestellNrFahrzeugNummerBemerkung-FzgBemerkung AusstattungIndexAuswertung
280012345535-24000001100040000PointS BerlinPointS Berlin1WAHR
580012345835-24000004100040003PointS LWLmehr Text und PointS LWL4WAHR
680012345935-24000005100040004PointS BerlinPointS Berlin und mehr Text5WAHR
980012346235-24000008100040007PointS LWLPointS LWL8WAHR
1080012346335-24000009100040008PointS BerlinPointS Berlin9WAHR
1380012346635-24000012100040011PointS LWLPointS LWL12WAHR
1480012346735-24000013100040012PointS BerlinPointS Berlin13WAHR
1780012347035-24000016100040015PointS LWLPointS LWL16WAHR
1980012347235-24000018100040017PointS LWLPointS LWL18WAHR


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Nun Zeilen markieren und löschen. Dannach entfernst Du den Filter wieder.
Es bleiben alle Zeilen mit FALSCH erhalten.
Tabelle1

 ABCDEFG
1AuftragsnummerSAP-BestellNrFahrzeugNummerBemerkung-FzgBemerkung AusstattungIndexAuswertung
280012345635-24000002100040001 Vergölst Ffm2FALSCH
380012345735-24000003100040002asdjsdlkPoints Ham3FALSCH
480012346035-24000006100040005 Vergölst Ffm6FALSCH
580012346135-24000007100040006asdjsdlkPoints Ham7FALSCH
680012346435-24000010100040009 Vergölst Ffm10FALSCH
780012346535-24000011100040010asdjsdlkPoints Ham11FALSCH
880012346835-24000014100040013 Vergölst Ffm14FALSCH
980012346935-24000015100040014asdjsdlkPoints Ham15FALSCH
1080012347135-24000017100040016asdjsdlkPoints Ham17FALSCH


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Bitte an einer Kopie testen


Gruß Matthias

Anzeige
AW: Text in Text suchen
11.03.2014 07:29:51
Björn
Hallo Matthias,
über eine Formellösung habe ich auch nachgedacht. Problem ist nur, dass die Textinhalte von der Spalte E und D nicht identisch sein müssen. Sprich Es kann sein, dass in D viel mehr Text steht, aber auch der Inhalt von E. Bsp.
Spalte E "PointS Berlin", Spalte D "irgendwelche andereren Informationen" + "PointS Berlin"
Daher dachte ich eher an eine VBA Lösung.
Aber schonmal vielen Dank für Deine Mühen
Grüße
Björn

AW: Text in Text suchen
11.03.2014 07:38:36
Björn
Ha,
das Funktioniert auch mit unterschiedlichen textinhalten.
Damit kann ich mir dann doch schon einmal weiterhelfen.
Aber über eine VBA lösung würde ich mich dennoch freuen.
Wenn jemand mag.
Ansonsten schon einmal Dank @ Matthias.
Grüße
Björn

Anzeige
AW: Text in Text suchen
11.03.2014 13:41:49
Marc
'Bitte schön!
'Gruß, MCO
Sub vergleich() For Each cl In Range("D:D").SpecialCells(xlCellTypeConstants) If InStr(1, cl, cl.Offset(0, 1)) >= 1 Then cl.Offset(0, 2) = "ok" cl.Interior.ColorIndex = 4 End If Next cl End Sub

das ist aber nur die halbe Miete ...
11.03.2014 19:18:27
Matthias
Hallo Marc
Ist also nicht ganz das was gesucht wurde ;-)
Tabelle1

 DEFG
1Bemerkung-FzgBemerkung Ausstattung Auswertung
2PointS BerlinPointS BerlinokWAHR
3 Vergölst Ffm FALSCH
4asdjsdlkPoints Ham FALSCH
5PointS LWLmehr Text und PointS LWL WAHR
6PointS BerlinPointS Berlin und mehr Text WAHR
7 Vergölst Ffm FALSCH
8asdjsdlkPoints Ham FALSCH
9PointS LWLPointS LWLokWAHR


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Hier sollten schon auch die Zeilen(5) und (6) als ok bewertet werden.
Gruß Matthias

Anzeige
... richtig muss es heißen
12.03.2014 07:02:12
Marc
Sorry, hatte die Parameter vertauscht.
Richtig muß die Zeile heißen:
If InStr(1, cl, cl.Offset(0, 1)) >= 1 Then
Gruß, Marc alias MCO

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige