|
Servus,
kann ich eine Programm mich etwas fragen lassen, dann eine if schleife bauen und später bei einer andern if schleife das abgefragt erneut abfragen ohne eintippen?
sachNummer = InputBox("Eingabe der gewünschten Sachnummer", "Welche Sachnummer soll eingebucht werden?")
'_____________________________________________________________________________________
'_____________________________________________________________________________________Abschnitt Bauteile
'_____________________________________________________________________________________
If Cells(zl, sp + 3).Value <> 0 Then
Select Case sachNummer:
Case "8000000000001":
sachNummer = "R 231 271 03 00"
Case "8000000000002":
sachNummer = "R 725 271 76 00"
End Select
If Cells(zl, sp + 1).Value = sachNummer Then
GoTo Nad:
End If
zl = zl + 1
If Cells(zl, sp + 1).Value = sachNummer Then
GoTo Nad:
End If
zl = zl + 1
If Cells(zl, sp + 1).Value = sachNummer Then
GoTo Nad:
End If
GoTo Wulu:
End If
'_____________________________________________________________________________________
'_____________________________________________________________________________________Abfrage Menge der Ladungsträger und ob eingebucht
'_____________________________________________________________________________________
Nad:
If Cells(1, 10).Value = "einbuchen" Then
Cells(zl, sp + 2).Select
status = InputBox("Status der Bauteile", "Bitte scannen Sie den Status ein")
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>ZEILE 1<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
If Cells(1, 10).Value = "einbuchen" Then
Select Case status:
Case "90000000000010":
status = "gut"
Case "90000000000020":
status = "uschlecht"
End Select
If ((Cells(zl, sp + 1).Value = sachNummer) And (Cells(zl, sp + 2).Value = status)) Then
GoTo wini:
End If
End If
zl = zl + 1
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>ZEILE 2<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
If Cells(1, 10).Value = "einbuchen" Then
Select Case status:
Case "90000000000010":
status = "gut"
Case "90000000000020":
status = "uschlecht"
End Select
If ((Cells(zl, sp + 1).Value = sachNummer) And (Cells(zl, sp + 2).Value = status)) Then
GoTo wini:
End If
End If
zl = zl + 1
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>ZEILE 3<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
If Cells(1, 10).Value = "einbuchen" Then
Select Case status:
Case "90000000000010":
status = "gut"
Case "90000000000020":
status = "uschlecht"
End Select
If ((Cells(zl, sp + 1).Value = sachNummer) And (Cells(zl, sp + 2).Value = status)) Then
GoTo wini:
End If
GoTo Horn:
End If
End If
'_____________________________________________________________________________________
'_____________________________________________________________________________________Status und Sachnummer in Gasse vorhanden
'_____________________________________________________________________________________
wini:
If ((Cells(zl, sp + 1).Value = sachNummer) And (Cells(zl, sp + 2).Value = status)) Then
Cells(zl, sp + 2).Select
If Cells(2, 10).Value = "einbuchen" Then
anzahlLT = Cells(zl, sp + 3).Value
If Cells(2, 10).Value = "einbuchen" Then
umgebuchtLT = InputBox("Anzahl dazuzubuchender ", "Bitte geben Sie die Anzahl der zusätzlich zu buchenden Teile")
Cells(zl, sp + 3).Font.Name = "Arial Black"
Cells(zl, sp + 3).Font.Size = 15
anzahlLT = anzahlLT + umgebuchtLT
Cells(zl, sp + 3).Value = anzahlLT
End If
End If
GoTo Neifer:
End If
'_____________________________________________________________________________________
'_____________________________________________________________________________________Nummer
'_____________________________________________________________________________________
Wulu:
If Cells(1, 10).Value = "einbuchen" Then
Select Case sachNummer:
Case "8000000000001":
Cells(zl, sp).Value = "HSR"
Cells(zl, sp + 1).Value = "R 231 271 03 00"
sachNummer = "R 231 271 03 00"
Case "8000000000002":
Cells(zl, sp).Value = "HSR"
Cells(zl, sp + 1).Value = "R 725 271 76 00"
sachNummer = "R 725 271 76 00"
Geht sowas? das er dann nochmal wie unten bei Wulu: hinspringt?
Und macht er den Sprung überhaupt?
|