Hallo!
Jetzt steh ich noch vor einen letzten Problem!
Ich habe folgenden VBA Code der wunderbar funktioniert, denn ich aber erweitern möchte nur ich weiss leider nicht wie ichs anstellen soll:
Do
Dim Eingabe As String
Dim EingabeKorrekt As Variant
Eingabe = InputBox("Bitte die Nummer des Kundendienstes bzw. Zustellers eingeben!")
If Right(Eingabe, 1) = "0000" Then
ElseIf Eingabe = "" Then
MsgBox "Ohne Kundendienstnummer kann keine Werkzeugeingabe erfolgen!", vbInformation
Exit Sub
End If
EingabeKorrekt = Eingabe
Loop Until MsgBox("Ist die Nummer korrekt? : " & EingabeKorrekt, vbYesNo + vbQuestion) = vbYes
Ich möcht gerne prüfen lassen ob die eingegebene Zahl in einer Matrix enthalten ist (Tabelle "KD" Spalte "A" ab Zeile 3 bis 40)
Wenn Nummer enthalten Eintrag, wenn nicht dann Fehler (nicht erlaubt) und neue Eingabe.
Bitte um Eure HIlfe
Mit besten Dank im Voraus
Gruss
Leitz G.