|
Sie können in Excel eine Schaltfläche erzeugen, die Rechnungsnummern durch einen Klick auf diese Schaltfläche jeweils um eins weiterzählt.
Öffnen Sie über das Menü Ansicht / Symbolleiste Steuerelement-Toolbox die gleichnamige Symbolleiste. In dieser Symbolleiste gibt es das Symbol Befehlsschaltfläche, der Mauszeiger verwandelt sich in ein kleines schwarzes Kreuz, mit dem Sie die Schaltfläche in der Excel-Tabelle an einer Stelle neben der Rechnungsnummer aufziehen können.
Es erscheint das Steuerelement mit dem Namen CommandButton1. Klicken Sie mit der rechten Maustaste auf dieses Steuerelement und wählen Sie im Kontextmenü den Eintrag Eigenschaften. Im gleichnamigen Fenster ändern Sie in der Eigenschaft Caption den Eintrag von CummondButton1 in Rechnungsnummer erhöhen.
Code erzeugen:
Auf die Schaltfläche mit der geänderten Bezeichnung führen Sie einen Doppelklick aus, danach erscheint das Fenster mit den Visual-Basic-Editor in diesem wird der Code-Fragment angezeigt wie links dargestellt. Tragen Sie den Text Range("E8")=Range("E8")+1 ein. Die Angabe E8 entspricht der Zelle in der Ihre Rechnungsnummer steht. Wenn bei Ihnen die Rechnungsnummer in einer anderen Zelle steht müssen Sie den Bezug entsprechend anpassen. Wichtig ist das die Zelle zweimal angegeben ist. Schließen Sie nun den Visual-Basic-Editor durch klick auf Entwurfsmodus beenden. In der Steuerelement-Toolbox klicken Sie auf die Schaltfläche Entwurfsmodus beenden. Nun ist Ihre Schaltfläche aktiv und jedes Mal wenn Sie auf das Steuerelement [Rechnungsnummer erhöhen] klicken wird die Rechnungsnummer um eins erhöht. Sollte bei Ihnen das Makro nicht funktionieren, dann liegt es daran das die Sicherheitsstufe in hoch eingestellt ist. Öffnen sie das Menü Extras / Makros / Sicherheit in diesem Fenster muss die Sicherheitsstufe auf Mittel |
Sie können jetzt komplettes e-Books einschließlich Beispieldateien herunterladen Downloaden
Weitere Informationen zu diesem Thema erhalten Sie in meinen Büchern.
weiter