Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code optimieren

Code optimieren
21.09.2007 10:00:00
mephonad
Hallo,
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


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code optimieren
21.09.2007 13:10:00
Peter
Hallo mephonad,
den mittleren Teil könntest du so umformen:
Select Case (Sheets("Accounts Detail").Range("Z3"))
Case "A07": vanfang = 11: vEnde = 112
Case "A08": vanfang = 113: vEnde = 214
Case "A10": vanfang = 215: vEnde = 316
Case "A12": vanfang = 317: vEnde = 418
Case "A14": vanfang = 419: vEnde = 520
End Select
Gruß Peter

AW: Code optimieren
21.09.2007 15:19:00
mephonad
Hallo Peter,
das war genau das was ich gesucht habe !! Danke ... .
mephonad

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige