VBA – Programmierung mit Excel Grundlagen

• Die Funktionen der übrigen Schaltflächen – siehe weiter unten im Text.
Die Initialisierungsprozedur der Form:
Private Sub UserForm_Initialize()
cmbZiel.RowSource = "Daten!A1:A12"
With cmbPreis
.ColumnCount = 2
.RowSource = "Daten!A1:B12"
.TextColumn = 2
End With
cmbPers.RowSource = "Daten!D1:D10"
txtDatum.Text = Date
cmdBuch.Visible = False
cmdLösch.Visible = False
Seite 110
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Select
Dialoge (Teil II)
If ActiveCell.Row = 1 Then
txtNr.Text = "0001"
Else
txtNr.Text = Cells(ActiveCell.Row, 1).Value + 1
End If
Cells(ActiveCell.Row + 1, 1).Activate
Selection.NumberFormat = "0000"
End Sub
füllt die COMBOBOXES mit Werten aus der Tabelle DATEN.
Die Box für den Preis wird mit .COLUMNCOUNT zweispalig definiert wird. Mit .TEXTCOLUMN
wird festgelegt aus welcher der Spalten der Wert für die TEXT – Eigenschaft der ComboBox
genommen werden soll.
Mit
txtDatum.Text = Date
cmdBuch.Visible = False
cmdLösch.Visible = False
wird das Tagesdatum eingesetzt und die Schaltflächen Buchen und Löschen „versteckt“.
❢ Die Zeile
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Select
ermittelt über .SpecialCells die letzte belegte Zelle des aktiven Tabellenblattes.
Die nachfolgenden Anweisungen belegen in Abhängigkeit davon, in welcher Zeile die letzte
belegte Zelle gefunden wurde das Feld mit der Buchungsnummer entweder mit einer 0001
(leere Tabelle mit Überschriftenzeile vorgefunden) oder mit einem Wert, der um 1 höher ist
als die letzte vorgefundene Buchungsnummer.
Abschließend wird die Tabelle für eine neue Buchung vorbereitet – die Zelle unter der letzten
Buchungsnummer wird aktiviert und mit einem vierstelligen numerischen Format belegt.
Ist das Formular ausgefüllt, wird über die Schaltfläche Berechnen der Gesamtpreis
ausgerechnet:
Private Sub cmdRechnen_Click()
If chkBuch.Value = True Then
txtPreis.Text = Val(cmbPreis.Text) * Val(cmbPers.Value) * 0.95
Else
txtPreis.Text = Val(cmbPreis.Text) * Val(cmbPers.Value)
End If
cmdBuch.Visible = True
cmdLösch.Visible = True
End Sub
In Abhängigkeit davon, ob Rabatt gewährt werden soll oder nicht, werden die
entsprechenden Multiplikationen (Einzelpreis * Personenzahl) mit 0,95 oder voll berechnet.
Gleichzeitig werden die Schaltflächen Buchen und Löschen aktiviert.