Code optimieren
21.09.2007 10:00:00
mephonad
kann man dieser Codeabschnitt optimieren?
Sub Transfer()
anfang = 11
Ende = 112
On Error Resume Next
If (Sheets("Accounts Detail").Range("E5")) = "" Then
MsgBox ("Account Error: Account must be filled ...")
End
End If
If (Sheets("Accounts Detail").Range("F8")) = "" Then
MsgBox ("IL (Cell F8) must be filled, Save failed ")
End
End If
If (Sheets("Accounts Detail").Range("G8")) = "" Then
MsgBox (" curnt.Cat(Cell G8) must be filled, Save failed ")
End
End If
If (Sheets("Accounts Detail").Range("Z3")) = "A07" Then
vanfang = 11
vEnde = 112
End If
If (Sheets("Accounts Detail").Range("Z3")) = "A08" Then
vanfang = 113
vEnde = 214
End If
If (Sheets("Accounts Detail").Range("Z3")) = "A10" Then
vanfang = 215
vEnde = 316
End If
If (Sheets("Accounts Detail").Range("Z3")) = "A12" Then
vanfang = 317
vEnde = 418
End If
If (Sheets("Accounts Detail").Range("Z3")) = "A14" Then
vanfang = 419
vEnde = 520
End If
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets("Accounts Detail").Range("A" & anfang & ":A" & Ende).copy
Sheets("Accounts View").Range("A" & vanfang & ":A" & vEnde).PasteSpecial Paste:= _
xlPasteValues
Sheets("Accounts Detail").Range("B" & anfang & ":B" & Ende).copy
Sheets("Accounts View").Range("B" & vanfang & ":B" & vEnde).PasteSpecial Paste:= _
xlPasteValues
Sheets("Accounts Detail").Range("C" & anfang & ":C" & Ende).copy
Sheets("Accounts View").Range("C" & vanfang & ":C" & vEnde).PasteSpecial Paste:= _
xlPasteValues
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub