Eingabeprüfung - Wert ungleich ""
Albert
ich verwende folgenden Code, um bei unserer Inventur die Zählmengen via Dialog zu erfassen.
Sub Erstzählung_AP1()
Dim Zeile As Long
Dim C As Variant
Dim intR As Integer
intR = MsgBox("Achtung, sie haben den ersten Arbeitsplatz für die Erstzählung ausgewählt! _
Ist das korrekt?", _
vbYesNo + vbQuestion, "Abfrage")
If intR = 6 Then
Do Until EingabeNr$ = "Ende"
EingabeNr$ = InputBox("TE-Nummer erfassen! Zum Beenden Ende eintippen", "Erstzählung AP1")
If EingabeNr$ "Ende" Then
If IsNumeric(EingabeNr$) And Len(EingabeNr$) > 6 Then
Set C = Range("B1:B5000").Find(EingabeNr$, LookIn:=xlValues)
If Not C Is Nothing Then
EingabeMenge = InputBox("Menge eingeben", EingabeNr$)
Cells(C.Row, 11).Value = EingabeMenge
xxx
Else
ExecuteExcel4Macro ("SOUND.PLAY(, ""I:\Neues Inventurprogramm\BesteTeufelslache.wav"")") _
End If
End If
End If
Loop
End If
If intR = 7 Then
MsgBox ("Erfassung wird nicht gestartet!")
End If
End Sub
Ich hab an der Stelle im Code zu meiner Frage drei xxx gemacht. An dieser Stelle bräuchte ich eine Prüfung, ob in den Dialog ein Wert eingefügt wurde. Des Weiteren steht im Code > 6 Then (fünf Zeilen weiter oben). Hier erwartet der Dialog eine Zahl, die größer sechs Zeichen ist. Weiß von euch jemand, wie eine Erweiterung aussehen könnte, wenn auch noch geprüft wird, ob die Eingabe mit einer "8" beginnt.
Ich dank euch für eine Mühe.
LG
Albert