ich hatte gestern folgendes Problem:
In einer Spalte, zB. A, stehen verschiedene Beträge, positive als auch negative, normalerweise gehört zu jedem positiven Betrag ein negativer. Die Spalte fasst nun an die tausend Beträge, von denen leider etliche nicht aufgehen.
Ich wollte mir auzeigen lassen, welche Beträge passen und welche nicht (Z.B. Ich lasse ein Makro durch die Spalte A laufen, bei jeder Übereinstimmung schreibt er eine lfd. Nr. in die Spalte J, jeweils für den positiven und den negativen Betrag die selbe Nr., stimmt ein Betrag nicht mit einem anderen überein, so kann die Zelle freigelassen werden)
Worti hatte mir nun folgendes Makro zur Verfügung gestellt:
Sub abgleich()
Dim c As Range
Dim I As Long, J As Long
Dim Suchwert
J = 1
For I = 1 To Cells(Rows.Count, 1).End(xlUp).Row - 1
Suchwert = Cells(I, 1).Value * -1
If IsEmpty(Cells(I, 2)) Then
Set c = Range("A" & I + 1 & ":A" & Cells(Rows.Count, 1).End(xlUp).Row).Find(What:=Suchwert, lookat:=xlWhole)
If Not (c Is Nothing) Then
Cells(I, 2).Value = J
Cells(c.Row, 2) = J
J = J + 1
End If
End If
Next I
End Sub
Im Beispiel funktioniert es auch, wenn ich das Makro nun aber auf meine Tabelle anpassen will, funktioniert es irgendwie nicht. Die Werte zum Abgleichen stehen in Spalte F und das Makro soll den Abgleich (die Nummerierung)in Spalte J durchführen.
Sorry, aber ich bekomme das nicht selbst hin. Bitte helft mir.
Danke
Gruß
Lucie