VBA Code komprimieren?

[Bernie]

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]

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]

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]

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]

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]

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.  

Gruß Uwe