VBA – Programmierung mit Excel Grundlagen

Seite 112
Dialoge (Teil II)
Private Sub cmdGesamt_Click()
Dim Pwd As String
frmGesamt.Show
End Sub
Nach der Eingabe des Passwords wird dieses nach einem Klick auf die Schaltfläche PWD
geprüft:
Private Sub cmdPwd_Click()
If txtPwd.Text = "Gogolok" Then
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Select
txtSumme.Value = _
WorksheetFunction.Sum(Range(ActiveCell, Cells(2, ActiveCell.Column)))
Else
MsgBox "Falsche Angabe, bitte wiederholen !", 16, "Fehler"
txtPwd.Text = ""
txtPwd.SetFocus
End If
End Sub
Ist das Password richtig (hier der Name des Verfassers), wird die Summe der Beträge im
Zellbereich zwischen der letzten belegten Zelle und der Zelle in der Zeile 2 der gleichen
Spalte ausgerechnet.
❢ Für die Berechnung wird mit
WorksheetFunction.Sum(.....)
die EXCEL – Standardfunktion SUMME benutzt.
Ist das angegebene Password falsch, erscheint eine Fehlermeldung, die Eingabe wird
gelöscht und das Passwordfeld für eine neue Eingabe aktiviert.
Die Schaltfläche Zurück dieser Form, blendet die Form aus, womit die Anwendung zum
Buchungsformular zurückblendet:
Private Sub cmdBack_Click()
Hide
End Sub
Die Buchungstabelle erhält im Laufe der Buchungen das folgende Aussehen.
Abbildung 50: Buchungstabelle des Programmbeispiels
✘ Das Programm besitzt „indirekte Buchungssicherung“ – wird eine Buchung mit der Taste
Beenden abgebrochen, entsteht in der Buchungstabelle eine leere Zeile, die Folgebuchung
beginnt dann wieder mit der Buchungsnummer 0001. Um die Kontrolle über solche
„Fehlbuchungen“ zu behalten, wurde im Programm keine Sonderbehandlung solcher Fälle
vorgesehen.