VBA-Code optimieren

Bild

Betrifft: VBA-Code optimieren von: Torsten K.
Geschrieben am: 07.02.2005 09:35:51

Hallo beisammen,

folgenden Code möchte ich gerne optimieren:

...
Sheets("SORT").Range("A2:A101").Copy
Sheets("JAN").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("FEB").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("MAR").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("APR").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("MAY").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("JUN").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("JUL").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("AUG").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("SEP").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("OKT").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("NOV").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("DEC").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Application.CutCopyMode = False
...
Könnt Ihr mir helfen?
Vielen Dank im voraus.

Gruß
Torsten

Bild


Betrifft: AW: VBA-Code optimieren von: Dr.
Geschrieben am: 07.02.2005 09:45:29

Befinden sich ausser den genannten noch andere Mappen in dem Workbook?


Bild


Betrifft: AW: VBA-Code optimieren von: Torsten K.
Geschrieben am: 07.02.2005 09:48:45

Hallo Dr.

ja, einige.

Gruß
Torsten


Bild


Betrifft: AW: VBA-Code optimieren von: Dr.
Geschrieben am: 07.02.2005 09:55:09

Probiers mal mit

Sheets("SORT").Range("A2:A101").Copy
A = Array("JAN","FEB",.....)
for I=1 to 12
Sheets(A(i)).Range("H13").Paste....
next i


Bild


Betrifft: AW: VBA-Code optimieren von: Torsten K.
Geschrieben am: 07.02.2005 10:03:44

Nochmals Hallo,

leider kommt folgende Fehlermeldung: "Erwartet Datenfeld"
Excel markiert das "A" in "Sheets(A(i))...."

Sheets("SORT").Range("A2:A101").Copy
A = Array("JAN", "FEB", "MAR", "APR", "MAY", "JUN", "JUL", "AUG", "SEP", "OCT", "NOV", "DEC")
For i = 1 To 12
Sheets(A(i)).Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Next i

Hast Du noch eine Idee, was noch fehlt?

Gruß
Torsten


Bild


Betrifft: AW: VBA-Code optimieren von: Dr.
Geschrieben am: 07.02.2005 10:12:21

Sorry, Index fängt bei Null an. Also For i=0 to 11.


Bild


Betrifft: AW: VBA-Code optimieren von: Torsten K.
Geschrieben am: 07.02.2005 10:17:33

Das war's aber leider noch nicht.
Die fehlermeldung bleibt.

Gruß
Torsten


Bild


Betrifft: AW: VBA-Code optimieren von: BigWoelfi
Geschrieben am: 07.02.2005 10:48:37

Hallo,

Nur mal so als Idee?

Ist "Option Explicit" aktiviert?
Dann muss Du noch die Variable "A" deklarieren.
"Dim A" sollte reichen.

Gruß, Wolfgang


Bild


Betrifft: AW: VBA-Code optimieren von: Reinhold
Geschrieben am: 07.02.2005 10:14:12

Hallo,

A beginnt mit Index 0, d.h. die Schleife muss lauten
for i = 0 to 11

Reinhold


Bild


Betrifft: AW: VBA-Code optimieren von: MarioS
Geschrieben am: 07.02.2005 10:02:41

Hallo Torsten,
stelle fest, welche worksheet indizes deine einzelnen Blätter haben.
Sind diese in einer Reihenfolge z.B. 1-12 kannst du die sheets in einer Schleife ansprechen.
For i = 1 To 12
Worksheets(i).range(h13")......
Next
Gruss MarioS


Bild


Betrifft: AW: VBA-Code optimieren von: Reinhold
Geschrieben am: 07.02.2005 10:19:38

Hallo Torsten,

z.B.

Dim h
Sheets("SORT").Range("A2:A101").Copy
For Each h In Array("Jan", "Feb", "Mar")
Worksheets(h).Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Next h
Application.CutCopyMode = False

Grüße aus Salzburg
Reinhold K.


Bild


Betrifft: AW: erledigt - mT von: Torsten K.
Geschrieben am: 07.02.2005 10:42:38

Hallo Reinhold,

Bingo, der Code paßt!
Vielen Dank für Deine Hilfe.

Gruß
Torsten


Bild


Betrifft: erledigt - Vielen Dank für Eure Hilfe - Gruß Torst von: Torsten K.
Geschrieben am: 07.02.2005 10:43:55




 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA-Code optimieren"