öffentlich
Redaktion Druckversion

VBA für Einsteiger - MS Excel 2003 (3)

Einige 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:

Code:

Select Case Nutzer

Case "Meier", "Schulze", "Friedrich" 'Das ist auch möglich

Call Begruessung 'ruft Prozedur Begruessung auf

Case Else

Call abgelehnt

End Select

Das letzte Beispiel ist schon wesentlich kürzer als das davor angegebene.

Allerdings wird im obigen Beispiel eine gewissenhafte Eingabe der Namen vorausgesetzt (Groß- und Kleinschreibung beachten). Für eine bedienfreundlichere Version fehlen uns noch die notwendigen Mittel. Trotzdem ist eine elegantere Lösung in der Datei Lösung Variable und Steuerelemente im Modul ZzEingabetest vorgestellt.

Mitglied werden, Vorteile nutzen!

  • Sie können alles lesen und herunterladen: Beiträge, PDF-Dateien und Zusatzdateien (Checklisten, Vorlagen, Musterbriefe, Excel-Rechner u.v.a.m.)
  • Unsere Autoren beantworten Ihre Fragen

Über den Autor:

bild117282

Dieter Frommhold, Jahrgang 1943, Diplom-Lehrer für Physik und Mathematik, Verlagslektor und Programmierer. Seit 1971 langjährige Lehrtätigkeit über Betriebssysteme und Programmierung.

Ab 1994 arbe ...

Newsletter abonnieren