Eine Idee wie ich die Datengröße reduzieren kann, da mein Arbeitsspeicher nicht ausreicht um das Makro vollständig durchlaufen zulassen.
Vielen dank schon mal im Voraus!
Mein makro:
Sub Update_Decalog_Länder()
For i = 1 To 18
Select Case i
Case 1
my_worksheet = "USA"
my_country = "UNITED STATES"
Case 2
my_worksheet = "Japan"
my_country = "JAPAN"
Case 3
my_worksheet = "Deutschland"
my_country = "UNITED STATES"
Case 4
my_worksheet = "Großbritannien"
my_country = "UNITED KINGDOM"
Case 5
my_worksheet = "Frankreich"
my_country = "FRANCE"
Case 6
my_worksheet = "Kanada"
my_country = "CANADA"
Case 7
my_worksheet = "Australien"
my_country = "AUSTRALIA"
Case 8
my_worksheet = "Bermuda"
my_country = "BERMUDA"
Case 9
my_worksheet = "Cayman Islands"
my_country = "CAYMAN ISLANDS"
Case 10
my_worksheet = "Finnland"
my_country = "FINLAND"
Case 11
my_worksheet = "Irland"
my_country = "IRELAND"
Case 12
my_worksheet = "Italien"
my_country = "ITALY"
Case 13
my_worksheet = "Israel"
my_country = "ISRAEL"
Case 14
my_worksheet = "Portugal"
my_country = "PORTUGAL"
Case 15
my_worksheet = "Spanien"
my_country = "SPAIN"
Case 16
my_worksheet = "Schweiz"
my_country = "SWITZERLAND"
Case 17
my_worksheet = "Niederlande"
my_country = "NETHERLANDS"
Case 18
my_worksheet = "Schweden"
my_country = "SWEDEN"
End Select
Sheets(my_worksheet).Activate
Sheets("Decalog").Select
Selection.AutoFilter Field:=6, Criteria1:="Q"
Selection.AutoFilter Field:=7, Criteria1:=my_country
Range("D:D").Select
Selection.Copy
Sheets(my_worksheet).Select
Range("A6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Decalog").Select
Range("M:M").Select
Selection.Copy
Sheets(my_worksheet).Select
Range("B6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Decalog").Select
Range("E:E").Select
Selection.Copy
Sheets(my_worksheet).Select
Range("C6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
Next i
End Sub