VBA – Programmierung mit Excel Grundlagen

Seite 102
Dialoge (Teil II)
Diese wiederum bereitet das Datenblatt der Rechnung ( Rdaten ) vor, trägt darin Formate
und Formeln für die Berechnungen ein:
Private Sub cmdEingabe_Click()
Application.ScreenUpdating = False
Worksheets("RDaten").Activate
ActiveWindow.DisplayZeros = False
Worksheets("RDaten").Range("B2:B13").Style = "Currency"
With Worksheets("RDaten").Range("C2:C12")
.Formula = "=B2+B2*$B$15/100"
.Style = "Currency"
End With
Worksheets("RDaten").Range("A2").Select
Application.DisplayAlerts = False
ActiveSheet.ShowDataForm
Application.DisplayAlerts = True
Worksheets("RDaten").Range("C15").Formula = "=sum(C2:C12)*$B$15/100"
Worksheets("RDaten").Range("C16").Formula = "=sum(C2:C12)"
Worksheets("RDaten").Range("C2:C12").Select
For Each Zelle In Selection
If Zelle.Value = 0 Then
Zelle.Value = ""
End If
Next
Application.ScreenUpdating = True
Worksheets("Eingangsblatt").Activate
Anfang.cmdKorrektur.Enabled = True
Anfang.cmdLöschen.Enabled = True
End Sub
Nach der Aufbereitung des Tabellenblattes wird die interne EXCEL – Datenmaske für die
Datenerfassung aufgerufen. Eventuelle System – Fehlermeldungen werden unterdrückt
(DISPLAYALERTS = FALSE / TRUE).
Damit der Wechsel des Arbeitsblattes und die Arbeitsvorgänge im Blatt nicht sichtbar werden,
wird über SCREENUPDATING = FALSE / TRUE die Bildschirmaktualisierung abgeschaltet
und später wieder aktiviert.
Die Aktivierung des Eingangsblates (incl. Schaltflächen für Datenkorrektur und Löschen)
werden die Daten des Datenblattes in das Textfeld rechts im Eingangsblatt übernommen
(das Feld ist beim Aufbau des Formularblattes über die Eigenschaft LISTFILLRANGE mit dem
entsprechenden Bereich der Tabelle verknüpft).
Für die Datenkorrektur wird ein eigenes Blatt angelegt und Korrektur genannt. In dieses Blatt
wird der Inhalt des Datenblattes übertragen, das Hilfsgitter sowie Zeilen- und
Spaltennumerierung werden ausgeblendet. Die nicht ausgefüllten Bereiche sowie
Formelzellen werden ermittelt und gelöscht.
Für die Datenkorrektur wird wieder die interne Datenmaske eingeblendet.
Nach der Korrektur werden die Daten in das Datenblatt übertragen und anschließend das
nicht mehr benötigte Korrekturblatt gelöscht und das Eingangsblatt aktiviert.
Das Datenblatt wird „versteckt“.
Der Aufruf des Eingangsblattes zieht die automatische Aktualisierung der im Textfeld dieses
Blattes angezeigten Rechnungsdaten nach sich.