Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1412to1416
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

Vergleich von verschiedenen Zellen mit Textbereich

Vergleich von verschiedenen Zellen mit Textbereich
06.03.2015 13:25:19
verschiedenen
Hallo liebes Forum,
Ich habe in Excel ein Problem, dass ich durch meine VBA Kenntnisse nicht lösen kann.
Ich habe ein Dokument mit 12000 Produkten und möchte die Richtigkeit einer Spalte prüfen.
Die Richtigkeit wird dadurch beschrieben, dass eine Nummer in jeder Zelle sein muss, die zur einer Zelle in der selben Zeile passt.
Bei beiden muss ich allerdings nur einen Abschnitt des Inhalts prüfen.
Also Beispiel hierfür:
Zelle A5: 100010565
Zelle B5: Produkt x mit Prüfanweisung 01
Er soll nun die beiden Fettgedruckten Zahlen Vergleichen und bei Übereinstimmung =okay ausgeben in eine neue Zelle (ansonsten N/A).
Mein bisheriges Makro sieht so aus:
Sub Vergleich_PMgruppe_Pnummer()
'Dimensionieren der Variablen
Dim LaufVar_Zeile_Objektart, LaufVar_Zeile_Original As Integer
'Setzen der Startwerte der Laufvariablen
LaufVar_Zeile_Objektart = 3
LaufVar_Zeile_Original = 3
For Each Zelle_Suchtext In Worksheets("Data to be migrated").Range("A3:A50")
'Vergleich Suchtext mit Suchwort
If Zelle_Suchtext.Value Like "10001*" And Cells(LaufVar_Zeile_Objektart, 2). _
Value Like "* 01 *" Then
'Wenn Übereinstimmung von Text und Wort wird die Übereinstimmung notiert
Worksheets("Data to be migrated").Cells(LaufVar_Zeile_Original, 9).Value =   _
_
Okay
LaufVar_Zeile_Original = LaufVar_Zeile_Original + 1
Else
'Bei keiner Übereinstimmung in einer Zeile wird der Wert "NA" eingetragen
Worksheets("Data to be migrated").Cells(LaufVar_Zeile_Original, 9).Value = " _
_
N/A"
LaufVar_Zeile_Original = LaufVar_Zeile_Original + 1
End If
Next
MsgBox "Done"
End Sub

Er sieht egal wie ich es drehe immer einen Fehler beim Vergleich, auch wenn ich weiß das sie richtig sind.
Ich hoffe die klugen Köpfe hier können mir und die in Zukunft auftretenden Probleme anderer Lösen.
Ich werde auch versuchen schnell zu Antworten.
Vielen Dank schonmal im Vorraus für die Bemühungen.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vergleich von verschiedenen Zellen mit Textbereich
06.03.2015 13:47:30
verschiedenen
Hallo,
And Cells(LaufVar_Zeile_Objektart, 2). _
Value Like "* 01 *" Then

dann muss vor und hinter 01 ein Leerzeichen sein.
Gruß
Rudi

AW: Vergleich von verschiedenen Zellen mit Textbereich
06.03.2015 14:08:22
verschiedenen
Vielen Dank Rudi! Das hat das Problem gelöst.
Was auch noch ein Problem war, dass ich nicht = "okay", sondern = okay geschrieben habe, was zu einem leeren Feld führte.
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige