Stoppe loop, når en celle rammer en hvis værdi.

Loop Until ....

Ja, det har jeg prøvet, men hvor skal den komme?

Den skriver compile error, når jeg har følgende:

Range("c7").Value = Range("c7").Value + 1
Do Until Range("D9") = 1
Range("c7").Value = Range("c7").Value + 1
Loop Until Range("c7") = Range("e9")
Loop

Ok - prøver...

Syntax

Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]

Loop

Or, you can use this syntax:

Do
[statements]
[Exit Do]
[statements]

Loop [{While | Until} condition]

Sub test2()
  Range("c7").Value = Range("c7").Value + 1

  Do Until Range("C7") = Range("E9")
      Range("c7").Value = Range("c7").Value + 1
  Loop
End Sub

Ja, supertekst... Det har jeg prøvet, men der jo betingelser der skal opfyldes. Kan det lykkedes med denne samtidig:

Do Until Range("D9") = 1

Mit problem er, at den ikke vil acceptere to "do until". Hvordan løser jeg dette?

D9 bliver jo ikke ændret i det viste?

Range("c7").Value = Range("c7").Value + 1
Do Until Range("D9") = 1
Range("c7").Value = Range("c7").Value + 1
Loop Until Range("c7") = Range("e9")
Loop

Det der er galter, at Loop Until & Loop afslutter2 loops - men der er kun een Begyndelse Do Until..

--

Do
Range("c7").Value = Range("c7").Value + 1
Do Until Range("D9") = 1
Range("c7").Value = Range("c7").Value + 1
Loop
Loop Until Range("c7") = Range("e9")

Her er der ingen fejl..

Hej

Det virker som sådan fint. Problemet er bare, at den skal stoppe hver gang D9=1, men det gør den ikke længere, da den nederste linie på en eller anden måde over-ruler den anden.
Så det er, hvis en af betingelserne ikke er opfyldt, skal den stoppe loopet.

Prøv at se bort fra VBA-koden et øjeblik og beskriv det ønskede med alm. ord.

Er der tale om 2 forskellige loops - et ydre og et indre - eller 
kun eet med to betingelser og/eller??

Vedr. D9=1 - peger D9 på en af de celler, der indgår i loops?

"C7" er datoen, hvor den hver gang skal vælge den næste i række. Der og dog nogle datoer, der ikke forekommer, hvilket "D9" tester, og skal derfor være lig 1 for at det er opfyldt.
Derudover skal loopet stoppe, når det når til den sidste dato i rækken "E9", da den ellers aldrig ville stoppe.

Jeg har fået det løst.

Mange tak for hjælpen.
Smid et svar, og jeg skal give dig point.

Mvh

Fint - selv tak & et svar...