Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > VBA Code komprimieren?
Normale Version: VBA Code komprimieren?
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Bernie

14.10.2017, 13:38
Hallo zusammen,

Meine Arbeitsmappe bläht unheimlich auf, daher die Bitte, könnte man den nachfolgenden Code etwas intelligenter lösen.
Für Vorschläge bin ich sehr dankbar.

Code:
 Application.ScreenUpdating = False
   Sheets("Ranking").Select
   Range("Tabelle12[DAX]").Select
   Selection.Copy
   Sheets("Depot").Select
   Range("A3").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
   Sheets("Ranking").Select
   Application.CutCopyMode = False
   Range("Tabelle12[MDAX]").Select
   Selection.Copy
   Sheets("Depot").Select
   Range("A8").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
   Sheets("Ranking").Select
   Application.CutCopyMode = False
   Range("Tabelle12[TECDAX]").Select
   Selection.Copy
   Sheets("Depot").Select
   Range("A13").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
   Sheets("Ranking").Select
   Application.CutCopyMode = False
   Range("Tabelle12[DOW JONES]").Select
   Selection.Copy
   Sheets("Depot").Select
   Range("A18").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
   Application.CutCopyMode = False
   Range("A2").Select
   Sheets("Ranking").Select
   Range("A1").Select
 Application.ScreenUpdating = True

Kuwer

14.10.2017, 13:59
Hallo Bernie,

mir ist nicht ganz klar, was der Code mit einem Aufblähen der Mappe zu tun hat.

Bezüglich Deines Betreffs schau mal hier: Achtung Makrorekorder oder Wer selektiert denn da?

Gruß Uwe

Bernie

14.10.2017, 14:07
Hallo Uwe,
Danke für deine Antwort.
Bin mir nicht ganz sicher, ob das "aufblähen" mit dem aufgezeichneten Code im Makrorekorder zutun hat, mir fällt nur auf, dass zum Schluss beim Speichern, dieser Vorgang im länger und länger wird. Daher mein Beitrag.

Steffl

14.10.2017, 17:19
Auch Hallo,

mal das total unnötige Selekt entfernt.

Code:
Sub prcBernie()

Application.ScreenUpdating = False
   Sheets("Ranking").Range("Tabelle12[DAX]").Copy
   Sheets("Depot").Range("A3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
   Sheets("Ranking").Range("Tabelle12[MDAX]").Copy
   Sheets("Depot").Range("A8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
   Sheets("Ranking").Range("Tabelle12[TECDAX]").Copy
   Sheets("Depot").Range("A13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
   Application.CutCopyMode = False
   Sheets("Depot").Range("A18").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
   Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Bernie

14.10.2017, 17:59
Hallo Stefan,
schön von dir zuhören. Danke für deine Hilfe!  :15:
Bin lange raus gewesen aus VBA, daher sieht man manchmal den Wald vor lauter Bäumen nicht.

Kuwer

14.10.2017, 19:36
(14.10.2017, 17:59)Bernie schrieb: [ -> ]Bin lange raus gewesen aus VBA, daher sieht man manchmal den Wald vor lauter Bäumen nicht.

Ha ha, bist wohl auch lange raus aus Lesen, dass Du den von mir verlinkten Beitrag ignoriert hast? Aber hast ja einen ... gefunden.  Undecided

Gruß Uwe
Clever-Excel-Forum > Office-Anwendungen > Excel > VBA Code komprimieren?