VBA – Programmierung mit Excel Grundlagen

Seite 114
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
'======================================================
' Datenkorrektur
'======================================================
Sub Korrektur()
Sheets.Add
ActiveSheet.Name = "Korrektur"
Sheets("Auswertung").Select
Range("A1:B12").Select
Selection.Copy
Sheets("Korrektur").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
Range("A1").Select
ActiveSheet.Cells(Rows.Count, ActiveCell.Column).Select
If IsEmpty(ActiveCell) Then
ActiveCell.End(xlUp).Select
A = ActiveCell.Row
B = ActiveCell.Column
End If
Range(Cells(A + 1, B), Cells(A + 9, B + 1)).ClearFormats
Range("A2").Select
ActiveSheet.ShowDataForm
Range(Cells(A, B), Cells(1, B + 1)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Auswertung").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Korrektur").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Range("C16").Select
End Sub
'======================================================
' Hilfe
'======================================================
Sub Hilfe()
Worksheets("Hilfe").Visible = True
Worksheets("Hilfe").Select
Range("H20").Select
End Sub
'======================================================
' Hilfe verlassen
Anhang