Hallo, ich möchte gerne in meinem VBA Tool zwei Spalten die zuvor aus unterschiedlichen Exelmappen bzw. Textdateien eingelesen worden vergleichen.
Wird in der zweiten Spalte der gleiche Wert wie in der ersten gefunden, wird in Spalte drei eine "1" geschrieben, wird er nicht gefunden, eine "0".
Den Code dafür habe ich bereits geschrieben und er funktioniert auch wunderbar, wenn die Werte zum Vergleichen in den beiden Spalten in der Mappe von Hand eingetragen wurden.
Sobald der Code aber mit zuvor automatisch reinkopierten Werten arbeiten soll, spuckt er nur "0"en aus.
Ich habe es bereits versucht die Spalten vor dem Vergleich auf Standartformatierung zu bringen oder mit Range.Value zu arbeiten.
Bisher hat noch nichts funktioniert. Was mache ich falsch bzw. wie würde es anders funktionieren?
Gruß Gummibaum
Wird in der zweiten Spalte der gleiche Wert wie in der ersten gefunden, wird in Spalte drei eine "1" geschrieben, wird er nicht gefunden, eine "0".
Den Code dafür habe ich bereits geschrieben und er funktioniert auch wunderbar, wenn die Werte zum Vergleichen in den beiden Spalten in der Mappe von Hand eingetragen wurden.
Sobald der Code aber mit zuvor automatisch reinkopierten Werten arbeiten soll, spuckt er nur "0"en aus.
Ich habe es bereits versucht die Spalten vor dem Vergleich auf Standartformatierung zu bringen oder mit Range.Value zu arbeiten.
Bisher hat noch nichts funktioniert. Was mache ich falsch bzw. wie würde es anders funktionieren?
Gruß Gummibaum
Visual Basic-Quellcode
- For Each rngTab1 In Worksheets("Tabelle2").Range("A:A")
- nichtGefunden = True
- If Not rngTab1 = "" Then
- For Each rngTab2 In Worksheets("Tabelle2").Range("B:B")
- If Not rngTab2 = "" Then
- If rngTab1 = rngTab2 Then
- rngTab1.Offset(0, 2) = "1"
- Exit For
- End If
- Else
- Exit For
- End If
- Next rngTab2
- If Not rngTab1 = rngTab2 Then rngTab1.Offset(0, 2) = "0"
- Else
- Exit For
- End If
- Next rngTab1