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.
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
Grüße aus Bremen
Bernie
"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"
MS Office 2016 Pro 32bit - Win 10 Pro 64 bit
Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
Bernie
"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"
MS Office 2016 Pro 32bit - Win 10 Pro 64 bit
Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.