InputBox und Message Box

Input Box und Message Box: InputBox, MsgBox
Sub InputBox1()
Dim a As Integer
Dim B%
Dim c%
a = 10
B = InputBox("Geben Sie den Wert ein")
c = a * B Multipliziert den Eingabewert mal 10.
MsgBox c Ergebnis steht in einer Messagebox.
End Sub
Sub InputBox2()
Dim a As String, B As String
a = "guttag"
B = InputBox("Bitte geben Sie das Passwort ein")
If B = a Then
MsgBox "Richtig"
Else
MsgBox "Falsch"
End If
End Sub
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt