gleiche Werte - letzte Zelle aktivieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: gleiche Werte - letzte Zelle aktivieren
von: Thommy
Geschrieben am: 08.12.2003 21:14:36

Hallo Forum!

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

Bild


Betrifft: AW: gleiche Werte - letzte Zelle aktivieren
von: K.Rola
Geschrieben am: 08.12.2003 21:47:06

Hallo,

beginn die Suche am Ende:

Option Explicit

Sub suche()
[B:B].Find(What:="3559840", After:=[b1], LookIn:=xlValues, _
LookAt:=xlPart, SearchDirection:=xlPrevious).Activate
MsgBox ActiveCell.Address
End Sub


Gruß K.Rola


Bild


Betrifft: AW: gleiche Werte - letzte Zelle aktivieren
von: Thommy
Geschrieben am: 08.12.2003 22:27:48

Hallo K.Rola!

Du bist a Wucht!! Ohne Deine Hilfe hätt ich
das heut nimmer geschafft und hätt morgen
Schimpfi vom Chef bekommen!!

Des funzt voll supiiiiiiiiii so!!! Hast mir
viel Zeit erspart!! Danke nochmals!


Bild

Beiträge aus den Excel-Beispielen zum Thema " gleiche Werte - letzte Zelle aktivieren"