|
Kann mir jemand bei folgenden Aufgaben behilflich sein.
1. Erstellen Sie in Ihrer Lösungsdatei ein Userform mit zwei Textboxen und einer
Schaltfläche. Benennen und beschriften Sie alle Steuerelemente sinnvoll und aussa-
gekräftig.
Programmieren Sie für das Klick-Ereignis der Schaltfläche eine Prozedur, die den In-
halt der ersten Textbox überprüft, ob er numerisch oder ein Datum ist. Ansonsten
kann es sich bei dem Inhalt der Textbox nur um Text handeln oder sie ist leer. Das
Ergebnis der Überprüfung soll mit einem aussagekräftigen Text in die zweite Text-
box geschrieben werden.
2. Erweitern Sie das in Aufgabe 7 erstellte Formular um eine weitere Schaltfläche und
eine Checkbox. Die Checkbox soll beschriftet sein mit „+ 5 % Provision“.
Beim Klick auf die neue Schaltfläche soll der Anwender zur Eingabe eines Zahlen-
betrages aufgefordert werden. Dieser Betrag soll, je nachdem, ob die Checkbox an-
gekreuzt ist oder nicht, um den Provisionssatz erhöht werden oder eben nicht.
Das Ergebnis soll mithilfe einer MsgBox angezeigt werden mit einem Text, der in
etwa wie folgt lauten sollte: „Der Wert xxx + 5 % Provision lautet: yyy.“
„xxx“ ist dabei durch den eingegebenen Wert zu ersetzen und „yyy“ durch den um
den Provisionssatz erhöhten Wert. Beide Werte sollen im €-Format mit zwei Nach-
kommastellen ausgegeben werden.
Für den Fall, dass keine Provision berechnet wird, soll auch eine entsprechende Mel-
dung ausgegeben werden.
In beiden Fällen soll die Meldung einen positiven Charakter haben.
Wurde vom Anwender nichts oder Text eingegeben, soll keine Berechnung erfolgen
und eine als Fehler charakterisierte Meldung ausgegeben werden.
max.
3. Erstellen Sie auf dem ersten Tabellenblatt Ihrer Excel-Datei eine Schaltfläche, bei de-
ren Anklicken Ihr Userform aufgerufen wird.
______
Folgendes Habe ich schon:
Private Sub btn_prüfen_Click()
If IsNumeric(Me.txt_Eingabe) Then
Me.txt_Ausgabe = "Es wurde eine Zahl eingegeben."
Else
Me.txt_Ausgabe = "Es wurde keine Zahl eingegeben."
End If
End Sub
komme leider mit weiteren Abfragen nicht weiter.
Bitte um Hilfestellung Danke
|