Hallo.
Ich nochmal. :) Ich versuche gerade, eine Liste (bzw. bestimmte Teile von immer gleichlangen Zahlen einer Spalte) mit einer anderen Liste (auf einem anderen Tabellenblatt) zu vergleichen. Die Tabellen sind unterschiedlich lang bzw. die Vergleichsliste hat auch noch mehrere Spalten (mit Nebenbedingungen), deswegen die Schleifen.
Tja, was aber nun partout nicht will ist das Schreiben der Variable "rest" in die jeweilige Zeile (immer Spalte 29). Ich verstehe es nicht. Wenn ich statt der im Code markierten Zeile einfach einen Zähler einbaue, der bei jedem pos. Fund eins hochzählt, und dessen Wert am Ende in irgendeine Zelle schreiben lasse, geht das. Aber nicht wie ich es will... zum heulen! Sieht da vielleicht jemand, was ich nicht zu sehen in der Lage bin?? :)
Viele Grüße, Ralf
With ActiveWorkbook.Sheets("Parameter")
For r = 2 To 5000 Step 1 'Line Items to chech in "SAPproj"
For m = 30 To 50 Step 1
If .Cells(m, 3) <> "" And .Cells(m, 4) <> "" And .Cells(m, 6) <> "" And _
Worksheets(3).Cells(r, djf) < .Cells(m, 4) And Worksheets(3).Cells(r, djf) > Cells(m, 3) Then 'DJ#-range
For exc = 6 To 8 Step 1
If Left(.Cells(m, exc), 1) = "x" And _
Right(.Cells(m, exc), 1) = Right(Worksheets(3).Cells(r, djl), 1) Then 'case: xxx1
rest = rest + 1
ElseIf Left(.Cells(m, exc), 1) = Left(Worksheets(3).Cells(r, djl), 1) And _
Right(.Cells(m, exc), 1) = Right(Worksheets(3).Cells(r, djl), 1) Then 'case: 1xx1
rest = rest + 1
End If
Next exc
Worksheets(3).Cells(r, 29) = rest ##############Fehler##########
End If
Next m
Next r