InputBox und Message Box

Input Box und Message Box: InputBox, MsgBox
Sub InputBox1() Eingabewert multiplizieren
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

Multipliziert den Eingabewert Ergebnis steht in Messagebox

Sub InputBox2() Passwort prüfen
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

Bitte geben Sie das Passwort ein Passwort falsch

Mehr Tipps: Einfache Variablen-Deklarationen

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!

Nutzen Sie unsere Suchfunktion:

Nach oben Sitemap
Impressum Datenschutz

Hinweis: Diese Webseite kann Werbeanzeigen und Werbeeinblendungen oder eingebundene Links von Diensten und Inhalten Dritter enthalten. Beachten Sie dazu unsere Datenschutzerklärung.