VBA – Programmierung mit Excel Grundlagen

Seite 120
.AddItem "1.15"
.AddItem "1.98"
.AddItem "3.75"
.AddItem "2.30"
End With
End Sub
13.5 UserForm 3
• INITIALISIERUNG
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
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Select
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
• BERECHNUNG GESAMTPREIS
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
• EINTRAG INS TABELLENBLATT
Private Sub cmdBuch_Click()
Dim Zeile As Integer, Spalte As Integer
Zeile = ActiveCell.Row
Spalte = ActiveCell.Column
ActiveCell.Value = txtNr.Text
Selection.NumberFormat = "0000"
Cells(Zeile, Spalte + 1).Value = CDate(txtDatum.Text)
Cells(Zeile, Spalte + 2).Value = cmbZiel.Text
Cells(Zeile, Spalte + 3).Value = CCur(cmbPreis.Text)
Cells(Zeile, Spalte + 4).Value = cmbPers.Text
Select Case chkBuch.Value
Case True
Cells(Zeile, Spalte + 5).Value = "Ja"
Case False
Cells(Zeile, Spalte + 5).Value = ""
End Select
Cells(Zeile, Spalte + 6).Value = CCur(txtPreis.Text)
End Sub
• LÖSCHEN DES FORMULARS
Private Sub cmdLösch_Click()
cmdBuch.Visible = False
Anhang