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