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.