Hilfe bei Code - Bereich variabel gestalten
05.01.2006 08:01:32
Ellen
ich habe mal wieder ein kleines Problem. Und zwar sieht mein Macro momentan folgendermaßen aus:
Sub test()
For p = 11 To 65535
If Sheets("SHIPMENT ADMIN INT").Cells(p, 10).Value = "" Then Exit For
If Sheets("SHIPMENT ADMIN INT").Cells(p, 10).Value = Sheets("SHIPMENT ADMIN INT").Cells(10, 10).Value Then GoTo 4
'.....Code......
4 'Jumping-Mark 4
Next p
End Sub
Meine Zeile ist variabel (p).
Beim 2. mal If wird in diesem Code nur weitergemacht wenn der Wert der aktuellen Zelle nicht dem von Zelle 10,10 ist. Diesen Bereich möchte ich nun auch variabel gestalten, wie folgt:
- Es sollen in Spalte 10 alle Zellen oberhalb im Bereich von 10,10 bis zur aktuellen Zeile überprüft werden und der Code nur ausgeführt werden wenn keine Übereinstimmung mit der aktuellen Zelle ist
Ich habe schon versucht:
If Sheets("SHIPMENT ADMIN INT").Cells(p, 10).Value = Sheets("SHIPMENT ADMIN INT").Cells(p - 1, 10).Value Then GoTo 4
Aber dann wird nur in der Zeile direkt darüber überprüft und nicht alle Zeilen im Bereich von Zeile 10 bis zur aktuellen.
Wie könnte ich das lösen?
Gruß,
Ellen
Anzeige