|
Halli Hallo,
Ich habe folgendes Problem;
Ich lasse zwei unterschiedliche Werte durch eine InputBox abfragen.
-> InputBox 1 : "NR"
-> InputBox 2: "Status"
select Case:
Case 1: Nr1 , Nr2, Nr3 ....
darin dann abfrage.
Hat die Case Nr: den select Case:
Case2: Status1, Status2, Status3
Also am Ende; !!!!!!!!!Nehme den Case1, welcher auch mit Case2 übereinstimmt.!!!!!
Wie ist die logische Aufreihung. ACHTUNG, ich will das nicht für alle Cases1 eingeben. (Sind an die 100) und Cases2 sind 4
sachNummer = InputBox("Gebenb Sie die Nr ein?")
status = InputBox("Status?")
If Cells(zl, sp + 3).Value <> 0 Then
Select Case sachNummer:
Case "01":
sachNummer = "R1"
Case "02":
sachNummer = "R2"
Select Case status:
Case "90000000000010":
status = "A"
GoTo Seidel
Case "90000000000020":
status = "B"
GoTo Seidel
End Select
If Cells(zl, sp + 2).Value <> status Then
zl = zl + 1
End If
If Cells(zl, sp + 2).Value <> status Then
zl = zl + 1
End If
If Cells(zl, sp + 2).Value <> status Then
MsgBox ("Dieser Status ist " & Cells(zl, sp - 1).Value & " nicht vorhanden.")
GoTo Ende
End If
End Select
If Cells(zl, sp + 1).Value <> Nr Then
zl = zl + 1
End If
If Cells(zl, sp + 1).Value <> Nr Then
zl = zl + 1
End If
If Cells(zl, sp + 1).Value <> Nr Then
MsgBox ("Die Nr ist " & Cells(zl, sp - 1).Value & " nicht vorhanden.")
GoTo Ende
End If
End If
Seidel:
Beste Grüße...
|