VBA – Programmierung mit Excel Grundlagen

Seite 90
Abbildung 28: Formularblatt nach Abschluß des Erfassungsvorganges
Dialoge (Teil II)
Für das Löschen der Daten (Schaltfläche Löschen) werden zuerst die Datenbereiche
(Artikeldaten, MwSt – Anteil und Gesamtpreis) ausgewählt:
'======================================================
' Löschen Daten
'======================================================
Sub Lösch_Daten()
Worksheets("Auswertung").Activate
Set r1 = Range(Cells(2, 1), Cells(13, 3))
Set r2 = Range(Cells(15, 3), Cells(16, 3))
Set MehrBlockBereich = Union(r1, r2)
MehrBlockBereich.Select
Selection.ClearContents
Range("E1").ClearContents
Range("A2").Select
End Sub
Da es sich um zwei nicht zusammenhängende Zellbereich handelt, werden sie zuerst über
RANGE ermittelt und anschließend mit UNION zu einem Markierungsbereich vereinigt, dessen
Inhalt mit ClearContents gelöscht wird.
Der Kundenname wird aus der Zelle E1 in einer eigenen Anweisung gelöscht. Als
Vorbereitung zur einer neuen Dateneingabe wird am Ende die Zelle A2 aktiviert. Damit erhält
das Formularblatt die Form aus der Abbildung 26 (plus aktivierte Zelle A2).
Die Datenkorrektur soll laut Vorgabe in einem eigenen Tabellenblatt durchgeführt werden.
Dazu wird dieses zuerst angelegt und Korrektur genannt:
'======================================================
' Datenkorrektur
'======================================================
Sub Korrektur()
Sheets.Add
ActiveSheet.Name = "Korrektur"
Aus dem Datenbereich im Blatt Auswertung werden die Zellen A1:B12 herauskopiert und in
das Blatt Korrektur hineinkopiert:
Sheets("Auswertung").Select
Range("A1:B12").Select
Selection.Copy
Sheets("Korrektur").Select
ActiveSheet.Paste
Der nach dem Kopieren im Blatt verbleibende Laufrahmen wird abgeschaltet, das Netzgitter
sowie Zeilen- und Spaltenüberschriften werden ausgeblendet:
Application.CutCopyMode = False
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False