Cells.Find
31.07.2003 17:53:54
Andy
für euch ein kleines Problem. ich habe eine Range mit 10 stelligen zahlen. Innerhalb dieser Range können die gleichen Zahlen mehrere Male vorkommen. Ich versuche nun mit der Methode cells.find diejenige zelle zu finden neben der zwei spalten links das wort "ja" steht. die prüfung mache ich mit activecell.offset(0,-2) hin. leider bekomme ich nicht hin dass bei nichterfüllung der kriterien in der range weiter sucht. er wirft mir immer den gleichen wert aus. habe somit eine endlosschleife kreiert... . na super!
unten mein bisheriger code
Public
Sub HandleNummer(k As Integer)
Sheets("Sheet1").Activate
Handle = Cells(3, k * 2).Value
Sheets("Trades").Activate
Cells.Find(what:=Handle).Activate
nochmalsuchen:
Cells.Find(what:=Assethandle).Activate
if ActiveCell.Offset(0,-2).value="JA" then
Datum = ActiveCell.Offset(0, -3).Value
Wert = ActiveCell.Offset(0, 1).Value
Else
GoTo nochmalsuchen
Sheets("Sheet1").Activate
Cells.Find(what:=Datum).Activate
ActiveCell.Offset(0, k * 2 - 1).Value = ActiveCell.Offset(0, k * 2 - 1).Value + Wert
End Sub