Brauch da mal ein Schleifchen - vba
16.12.2004 09:14:30
Marcellos
Ich brauche eine Schleife!
so lange die Falsche Nr. eingegeben wird, soll die Abfrage nach der Menge und der Materialnummer erfolgen. Der Bereich wo ich die Sternchen gesetzt habe ist soll immer wieder abgefragt werden...
so sieht mein vba aus
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Worksheets("Materialanforderung").Unprotect "Passwort"
Worksheets("Materialanforderung").Cells(12, 4).Value = InputBox("Menge:", "Eingabe Erforderlich")
Worksheets("Materialanforderung").Cells(12, 5).Value = InputBox("Materialnummer:", "Eingabe Erforderlich")
'Hier wird abgefragt, ob die Materianummer zugelassen ist
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
'wenn zugelassen hier zu ende
Else
MsgBox "Kein Schüttgut, Bestellung kann nicht erfolgen"
********
'durch "OK" der MsgBox wird die Abfrage so nur einmal ausgeführt!
Worksheets("Materialanforderung").Cells(12, 4).Value = InputBox
("Menge:", "Eingabe Erforderlich")
Worksheets("Materialanforderung").Cells(12, 5).Value = InputBox
("Materialnummer:", "Eingabe Erforderlich")
********
End If
End With
Worksheets("Materialanforderung").Protect "Passwort"
End If
habt Ihr da was ...ach ja: Bin VBA Anfänger!
Gruß Marcel