VBA – Programmierung mit Excel Grundlagen

Seite 108
Dialoge (Teil II)
Über die Schaltfläche Eintragen werden die Werte ins Tabellenblatt eingetragen:
Private Sub cmdEintrag_Click()
If cmbArtikel.Text = "" Or cmbPreis = "" Then
MsgBox "Artikel und Preis eintragen !"
Else
Cells(ActiveCell.Row, 1).Value = cmbArtikel.Text
With Cells(ActiveCell.Row, 2)
.Value = cmbPreis.Value
.Style = "Currency"
End With
Cells(ActiveCell.Row + 1, 1).Activate
End If
End Sub
Vor dem Eintrag wird geprüft, ob beide Felder Einträge enthalten, im Negativfall wird eine
Meldung ausgegeben und kein Eintrag vorgenommen.
Beim Eintrag wird der Zelle mit dem Preis das Währungsformat zugewiesen. Anschließend
wird die Zelle der Spalte 1 ( A) eine Zeile tiefer aktiviert, damit ein neuer Eintrag erfolgen
kann.
✘ Die Initialisierungswerte und manuell eingegebene Werte des Preisfeldes sollten
Dezimalpunkte statt Kommata enthalten. Beim Übertragen in die Zelle werden diese in ein
Komma umgewandelt (richtige EXCEL – Notation).
✘ Solange die Form aktiv bleibt, ist keine direkte manuelle Eingabe in die Zellen des
Tabellenblattes möglich.
✘ Soll das Formular sofort nach dem Öffnen der Arbeitsmappe in die aktivierte Tabelle
eingeblendet werden, sollte in der Workbook_Open – Prozedur für die entsprechende
Aktivierung des Tabellenblattes, der richtigen Zelle und das Einblenden des Formulars
gesorgt werden:
Private Sub Workbook_Open()
Worksheets(1).Activate
Range("A2").Activate
frmArtikel.Show
End Sub