VBA – Programmierung mit Excel Grundlagen

Beispielanwendung 2
Für die Abwicklung der Datenkorrektur sind die folgenden Anweisungen vorgesehen:
Private Sub cmdKorrektur_Click()
Dim A
Dim B
Sheets.Add
ActiveSheet.Name = "Korrektur"
Worksheets("Rdaten").Visible = True
Sheets("Rdaten").Select
ActiveSheet.Range("A1:B12").Select
Selection.Copy
Sheets("Korrektur").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
With ActiveSheet
.Range("A1").Select
.Cells(Rows.Count, ActiveCell.Column).Select
If IsEmpty(ActiveCell) Then
ActiveCell.End(xlUp).Select
A = ActiveCell.Row
B = ActiveCell.Column
End If
End With
With Worksheets(1)
.Range(.Cells(A + 1, B), .Cells(A + 9, B + 1)).ClearFormats
.Range("A2").Select
.ShowDataForm
.Range(.Cells(A, B), .Cells(1, B + 1)).Select
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("Rdaten").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Sheets("Korrektur").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Worksheets("Rdaten").Visible = False
End Sub
Das Löschen wird durch das Einblenden einer Abfrage (MsgBox) eingeleitet:
Abbildung 41: Löschabfrage zu Bsp. 2
Je nach betätigter Schaltfläche werden entweder alle Daten gelöscht (incl. Kundenname im
Textfeld), nur der Inhalt des Datenblattes (und damit auch der Inhalt des Textfeldes) oder der
Vorgang wird abgebrochen. In allen drei Fällen erfolgt die Rückkehr zum Eingangsblatt.
Seite 103