gleiche Werte - letzte Zelle aktivieren
08.12.2003 21:14:36
Thommy
Ich hab folgendes Problem:
ich hab eine Tabelle mit ca. 2000 Zeilen-Eintragungen (mehr oder weniger),
wo in SpalteA die Auftragsnummer und in SpalteB die Produktionsnummern eingetragen sind und in Spalte C, D, E usw. sind diverse Eintragungen.
Durch diese Eintragungen kann es vorkommen, daß dieser Auftrag 2x, 3x
oder öfter vorkommen kann.
Jetzt muß ich per Makro in der letzten vorhandenen Zeile der gleichen
Produktionsnummer in der Spalte Z z.b. eine 1 setzen.
Mein letzter Stand ist:
Columns("B:B").Select
Selection.Find(What:="3559840", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
AA:
Selection.FindNext(After:=ActiveCell).Activate
If Selection.FindNext(After:=ActiveCell).Activate = True Then GoTo AA:
If Selection.FindNext(After:=ActiveCell).Activate = False Then Exit Sub
End Sub
aber des funzt nit!! weil wenn ich in der Zeile 3, 4 und 5 dies zutrifft,
sucht die Schleife ohne unterbrechung die 3 Zeilen durch. Wie kann ich
Excel mitteilen, such nur nach unten, wennst nach der Zeile5 keinen
Eintrag mehr findest hör auf und fang nicht wieder bei Zeile2 an!?
pls help!! thx