Werte ersetzten und abspeichern per VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

oha, Planungsaufgabe, mal wieder...
Hallo Mike,
gehe der bekannte Model-View-Controller Prinzip nach: trenne die Datenhaltung, Präsentation und Verarbeitung voneinander.
Idealerweise sind die Daten tabellarisch abgelegt, wie in Data_1 oder Data_2. Ein Sachverhalt pro Spalte. Nur niedrigste Granularität verwenden, also Land ja, Region nein. Darauf können per SVerweis die zusätliche Information einbezogen werden (Region). Es wäre "Verarbeitung Stufe 1".
Die Präsentation erfolgt über Pivottabelle (alle "=Summe(..)" raus!)
In der Pivottabelle können Aggregatsberechnung (u.a. Prozent vorgenommen werden). Es wäre "Verarbeitung Stufe 2".
Das Umgekehrt, spricht in der Präsentation Daten einzugeben, ist fehleranfällig und dementsprechend lästig.
Wenn die Komplexität weiter steigt, versuche mit BI-Tool, wie z.B. Jedox.
Viel Erfolg
Yal

Ok das verstehe ich leider nicht...:(
So sieht mein Makro per Aufnahme aus. Könnte ich diesen anpassen, sodass er das macht bis keine Daten mehr vorhanden sind die er nach der Reihenfolge kopieren kann? Daher immer eins nach unten uns es mit dem Ländernamen am ende der Datei abspeichert?

Sub test()
' test Makro
Range("A2").Select
Selection.Copy
Windows("20200925_Market Estimations_RegX_pilot.xlsx").Activate
Range("B5").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "[Country]"
Range("C5").Select
ActiveCell.FormulaR1C1 = "[Country Code]"
Application.WindowState = xlNormal
Windows("01_Input Data.xlsx").Activate
Range("A2").Select
ActiveCell.FormulaR1C1 = "DE"
Windows("20200925_Market Estimations_RegX_pilot.xlsx").Activate
ActiveCell.FormulaR1C1 = "DE"
Range("DE10:DE11").Select
Application.WindowState = xlNormal
Windows("01_Input Data.xlsx").Activate
Range("B2").Select
ActiveCell.FormulaR1C1 = "Germany"
Windows("20200925_Market Estimations_RegX_pilot.xlsx").Activate
Range("B5").Select
ActiveCell.FormulaR1C1 = "Germany"
Range("DE4").Select
Application.WindowState = xlNormal
Windows("01_Input Data.xlsx").Activate
Range("C2").Select
ActiveCell.FormulaR1C1 = "DEN"
Windows("20200925_Market Estimations_RegX_pilot.xlsx").Activate
Range("B4").Select
ActiveCell.FormulaR1C1 = "DEN"
Range("DF15").Select
Application.WindowState = xlNormal
Windows("01_Input Data.xlsx").Activate
Range("D2").Select
ActiveCell.FormulaR1C1 = "D(Nord) & Nordeuropa"
Windows("20200925_Market Estimations_RegX_pilot.xlsx").Activate
Range("B3").Select
ActiveCell.FormulaR1C1 = "D(Nord) & Nordeuropa"
Range("DD6").Select
ChDir "C:\Users\xxx\Desktop\Bottomup Templates"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\xxx\Desktop\Bottomup Templates\20200925_Market Estimations_RegX_Germany.xlsx"  _
_
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Windows("01_Input Data.xlsx").Activate
Application.WindowState = xlNormal
Windows("20200925_Market Estimations_RegX_Germany.xlsx").Activate
End Sub

Sub test() ' test Makro Dim Qw As Worksheet 'Quelle Dim Zw As Worksheet 'Ziel Dim Nw As Workbook 'neue Dim Z Set Qw = ThisWorkbook.Worksheets("Input data") Set Zw = ThisWorkbook.Worksheets("Infrastructure") For Each Z In Qw.Range("A1", Qw.Range("A1").End(xlDown)).Cells Zw.Range("B3") = Z.Offset(0, 3).Value '[Sales Region], spalte 4 Zw.Range("B4") = Z.Offset(0, 2).Value '[Region], Spalte 3 Zw.Range("B5") = Z.Offset(0, 1).Value '[Country], Spalte 2 Zw.Range("C5") = Z.Value '[Country Code], Spalte 1 Set Nw = Zw.Copy Nw.SaveAs _ Filename:="C:\Users\xxx\Desktop\Bottomup Templates\20200925_Market _ Estimations_RegX_" & Z.Offset(0, 1).Value & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False Nw.Close Next End Sub

Nw.SaveAs _ Filename:="C:\Users\xxx\Desktop\Bottomup Templates\20200925_Market " & _ "Estimations_RegX_" & Z.Offset(0, 1).Value & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Function oder Variable erwartet. Funktioniert es denn bei dir? Den User habe ich natürlich geändert... Sub Test() Dim Qw As Worksheet 'Quelle Dim Zw As Worksheet 'Ziel Dim Nw As Workbook 'neue Dim Z Set Qw = ThisWorkbook.Worksheets("Input data") Set Zw = ThisWorkbook.Worksheets("Infrastructure") For Each Z In Qw.Range("A1", Qw.Range("A1").End(xlDown)).Cells Zw.Range("B3") = Z.Offset(0, 3).Value '[Sales Region], spalte 4 Zw.Range("B4") = Z.Offset(0, 2).Value '[Region], Spalte 3 Zw.Range("B5") = Z.Offset(0, 1).Value '[Country], Spalte 2 Zw.Range("C5") = Z.Value '[Country Code], Spalte 1 Set Nw = Zw.Copy Nw.SaveAs _ Filename:="C:\Users\xxx\Desktop\Bottomup Templates\20200925_Market " & _ "Estimations_RegX_" & Z.Offset(0, 1).Value & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False Next End Sub

Beliebteste Forumthreads (12 Monate)

Werte ersetzten und abspeichern per VBA

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte ersetzten und abspeichern per VBA

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread