Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Schaltfläche und Infobox

    Betrifft: Schaltfläche und Infobox von: Hauke Brodersen
    Geschrieben am: 29.08.2003 08:04:39

    Hallo ins Forum!

    Ich brauche mal Eure Hilfe:

    Ich würd gern auf einem Excel Sheet eine Schaltfläche haben auf der stehen soll "Rabatte" und wenn man drauf klickt, soll sich ein Infofeld öffnen, in dem ich verschiedene Rabatte aufliste. Diese sollen nur zur Info dienen und nicht weiter verarbeitet werden. Diese Box soll sich auch irgendwann wieder schließen lassen (entweder automatisch oder per Klick.

    Ist das schwer? Nein ich denke für Euch hier nicht, oder?

    Danke und Grüße aus Flensburg ins Forum

    Hauke Brodersen

      


    Betrifft: AW: Schaltfläche und Infobox von: Galenzo
    Geschrieben am: 29.08.2003 09:37:38

    Füge eine Schaltfläche ein, schreibe "Rabatte" drauf und doppelklicke dann da mal drauf. Es öffnet sich der VBA-Teil mit der zum Button gehörenden Procedur, die bei einem Klcik auf dem Button ausgeführt wird. Am einfachsten wäre es, ein einfaches Meldungsfenster zu öffnen. Schreibe dies also in die Prozedur:

    Private Sub CommandButton1_Click()
        MsgBox "Rabatt 1: 10%" & vbCrLf & _
                "Rabatt 2: 20%" & vbCrLf & _
                "Rabatt 3: 30%" & vbCrLf & _
                "Rabatt 4: 40%" & vbCrLf & _
                "Rabatt 5: 50%", _
                vbOKOnly, _
                "Rabattübersicht"
    End Sub
    


    .. mußt du dann entsprechend anpassen. (vbCrLf ist dabei jeweils ein Zeilenwechsel)