Do While
19.05.2005 13:25:19
Gregor
Mit folgender Prozedur finde ich den Wert 220
Sub SuchenBegriff2()
Sub Suchen()
Dim intRow As Integer
intRow = 1
Do While Cells(intRow, 1) <> 220
intRow = intRow + 1
If intRow = 32766 Then Exit Sub
Loop
MsgBox "Suchbegriff wurde in Zelle " & _
Cells(intRow, 1).Address & " gefunden!"
End Sub
Wie muss ich das Makro anpassen, dass ich Werte >= 220 finde?
Mit >=220 funktioniert es nicht.
Vielen Dank und Gruss
Gregor
Anzeige