Do While Loop
16.12.2004 11:12:12
Marcel
Hab die Frage schon einmal gestellt... glaube Kollege ist abgesprungen
Nachdem ich den Hinweis bekommen habe, dass ich eine Do While Schleife benutzen muss, bin ich genauso schlau wie vorher. Die Beispiele die man so findet sind ja einfach zu verstehen... aber wie bau ich das Ding hier ein?
Problem:
Es wird eine Abfrage gestartet, ob die Nummer zulässig ist.
Ist sie es nicht, erscheit eine MsgBox.
Jetzt soll die Material "Menge" und Die "Materialnummer" sooooollaaannngge
eingegeben werden bis sie stimmt erlaubt ist.
Also: ist Do Until c = True die Bedingung?
und wo gehört das hin.
Hab noch nie ein Schleifchen gebastellt und bin grad völlig überfordert ;-)
Dim ws3, ws4 As Worksheet
Set ws3 = Worksheets("Materialanforderung")
Set ws4 = Worksheets("Materialanforderung")
Nr = ws3.Cells(12, 5)
With ws4.Range("IU1:IU1681")
Set c = .Find(Nr, LookIn:=xlValues)
If Not c Is Nothing Then
Else
Do Until c = True
MsgBox "Kein Schüttgut, Bestellung kann nicht erfolgen"
Worksheets("Materialanforderung").Cells(12, 4).Value = InputBox
( "Menge:", "Eingabe Erforderlich")
Worksheets("Materialanforderung").Cells(12, 5).Value = InputBox
("Materialnummer:", "Eingabe Erforderlich")
If c = False Then Exit Do
Loop
End If
End With
Hiiiillllffffeeee
Gruß**