Hallo Fennek,
du hattest folgenden Lösungsvorschlag für mein Problem. Nun meine Frage, ob man das noch erweitern kann. Ich würde gerne prüfen, ob in Spalte 3 und 6 auch identische Werte stehen.
Bspw. Steht in 3 ein Land und in sechs eine Artikelnummer. Nur, wenn Land, Artikelnummer und der Wert übereinstimmen, soll das X gesetzt werden. Mit diesem Makro würde ich nämlich Stornos makieren.
Deswegen hast du eine Buchung mit positiven Wert und eine mit negativem. Ich freue mich auf deine Rückmeldung.
Grüße
Stephan
Sub T_1()
'Daten in Spalte 8
'Spalte 10 frei für das Ergebnis
Ar = Columns(8).SpecialCells(2) ' 8 ist die Spalte
For i = 1 To UBound(Ar) - 1
If IsNumeric(Ar(i, 1)) Then
Z = Ar(i, 1)
For j = i + 1 To UBound(Ar)
If IsNumeric(Ar(j, 1)) Then
If Z = -1 * Ar(j, 1) Then
Ar(i, 1) = "X": Ar(j, 1) = "X"
Bo = True
Exit For
End If
End If
Next j
Bo = False
End If
Next i
Cells(1, 10).Resize(UBound(Ar)) = Ar '10 ist die Spalte
End Sub