wie geht eine schleife?
04.06.2006 17:57:53
andy
ich möchte gerne in volgendem einfachem Makro eine Schleife einbauen
weis aber nicht bescheid wie sowas geht.
Die suche soll so oft weitergeführt werden bis ich nein drücke.
*******************************************************************
Sub zudruck()
Sheets("Daten").Select
Range("AB2:AB2000").Select
Selection.Find(What:="Druck", after:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
'schleifen anfang
if MsgBox("weiter suchen?", vbYesNo) = vbNo Then Exit Sub
Selection.FindNext(after:=ActiveCell).Activate
'schleifen ende
End Sub
**************************************************************
Kann mir hier jemand helfen?
Vielen Dank
Andy