Hallo zusammen,
bei meinem Code wenn ich bei der Msgbox Frage auf „Ja“ drücke funktioniert alles. Wenn ich“ nein“ drücke funktioniert auch alles nur das die Inputbox „ZULeingabe“ zweimal erscheint.
Sub ZWEIFälle_click()
Dim ZULeingabe As Integer
Dim OGeingabe As Integer
If MsgBox("Stimmt diese Zahl? " & Chr(13) & Sheets("T1").Range("B3").Value, vbYesNo, "Frage") = vbYes Then GoTo Fortfahren Else: Application.Run "VBno"
Fortfahren:
Range("B4").Value = Range("B3").Value
ZULeingabe = InputBox("Geben Sie noch eine Zahl ein" & Chr(13) & "", "")
Range("B5").Value = ZULeingabe
End Sub
Sub VBno()
OGeingabe = InputBox("Bitte geben Sie die richtige Zahl ein" & Chr(13) & _
"", "Zahl Abfrage")
If OGeingabe > 0 Then Sheets("T1").Range("B3").Value = OGeingabe
Sheets("T2").Range("B3").Value = OGeingabe
Application.Run "ZWEIFälle_click"
End Sub
Kann mir jemand helfen? hat jemand eine Ahnung wieso die inputbox zweimal erscheint?
Vielen Dank im Voraus,
Uwe
|