Inputbox berenzen (<=100)
12.01.2015 17:19:09
Philipp
meine Freundin muss für die Uni, eine VBA Programmierung vornehmen in der bei einere Division einer natürlichen Zahl a Dieses haben wir auch mit der Folgenden Programierung soweit gelöst bekommen, aber die Begrenzung der Inputbox auf eine Zahl
Sub Division_zweier_zahlen()
'Gibt den Quotient zweier Zahlen aus
'Deklaration der Variablen
Dim z_1 As Byte, z_2 As Byte
Dim Quotient As Byte
'Eingabedaten
z_1 = InputBox("Geben Sie die erste Zahl Versucht haben wir es auch über einen Loop aber da bekomme ich immer einen Fehler:
Sub Division_zweier_zahlen()
'Gibt den Quotient zweier Zahlen aus
'Deklaration der Variablen
Dim z_1 As Byte, z_2 As Byte
Dim Quotient As Byte
'Eingabedaten
z_1 = InputBox("Geben Sie die erste Zahl 100 Then z_1 = ""
Do
Loop Until z_1 ""
z_2 = 5
'Verarbeitung
Quotient = z_1 Mod z_2
'Ausgabedaten
MsgBox (" Der Quotient von " & z_1 & " und " & z_2 & " ist " & Quotient)
End Sub
Über einen Lösungsvorschlag wie wir das Problem lösen wäre ich sehr dankbar.
Vielen Dank im Voraus
Philipp
Anzeige