Wert Null schreibt in Zeile 2
Hauser
ich hab folgenden Code geschrieben. Er funktioniert super...
Sub Erstzählung()
Dim Zeile As Long
Dim C As Variant
Dim intR As Integer
Do Until EingabeNr$ = "Ende"
EingabeNr$ = InputBox("Inventurbeleg erfassen", "TE-Nummer")
If Not EingabeNr$ = "Ende" And _
Not EingabeNr$ = "" Then
Set C = Range("A1:A5000").Find(EingabeNr$, LookIn:=xlValues)
If Not C Is Nothing Then
EingabeMenge = InputBox("Menge eingeben", EingabeNr$)
Cells(C.Row, 7).Value = EingabeMenge
Else
ExecuteExcel4Macro ("SOUND.PLAY(, ""R:*************\BesteTeufelslache.wav"")")
End If
End If
Loop
End Sub
Problem ist, dass bei der Eingabe der Ziffer Null das Makro diesen Wert in die Zeile 2 schreibt. Dämlich...
Wisst ihr vielleicht, wie ich die Eingabefunktion soweit modifizieren könnte, damit die Null ausgeschlossen ist bzw. ein mindestens siebenstelliger Wert drin sein muss.
Danke für eure Hilfe im Voraus.
Albert
Anzeige