DruckversionEinige Steueranweisungen
Der Select - Case - Block
Zunächst wird eine einfache Prüfmöglichkeit vorgestellt. In Abhängigkeit von Bedienernamen soll ein Programm eröffnet werden.
Code:
Dim Nutzer As String
Sub Eröffnung1()
Nutzer = InputBox("Bitte Ihr Name .", "Nutzererlaubnis")
Select Case Nutzer
Case "Meier"
Call Begruessung
Case "Schulze"
Call Begruessung
Case "Friedrich"
Call Begruessung
Case Else
Call abgelehnt
End Select
End Sub
Sub Begruessung()
MsgBox "Herzlich Willkommen Frau/Herr " & Nutzer & "!"
'Ab hier kann der eigentliche Programmcode stehen
End Sub
Sub abgelehnt()
MsgBox "Frau/Herr " & Nutzer & " Sie dürfen nicht mit dem Programm arbeiten!"
End Sub
Für den Select Case Block ist auch folgendes möglich:
Diese Seite ist für Mitglieder von akademie.de reserviert.
Möchten Sie die Mitgliedschaft 14 Tage kostenlos testen und den Beitrag komplett lesen?
Oder möchten Sie zunächst mehr über diesen Beitrag erfahren und die Leseproben sehen?
Ich bin bereits Mitglied