Datenübertragung per Makr
01.04.2020 10:56:18
DE
ich habe eine kleines VBA Problem und wäre euch sehr dankbar, wenn Ihr mir helfen könntet. Ich hab ein kleines Programm für eine automatisierte Datenübertragung geschrieben, jedoch komme ich bei einer kleinen Sache nicht weiter. In der Zieldatei existieren mehrere Register (Reiter). Stellt es euch wie ein Dashboard vor, wo am Ende sämtliche Daten auf einem Register konsolidiert werden. In dem Register, wo sämtliche Daten komprimiert werden, befindet sich ein "Update Button". Durch das betätigen des Buttons, sollen andere Register im Hintergrund Ihre Daten generieren. Wie kann ich das Programm so verändern, dass sich die Daten im (Name) "Register2" aktualisieren? In dem Programm unten werden die Daten in das Register übertragen, wo sich der Update Button befindet.
Sub Datenübertragung()
Dim wb As Workbook
Application.ScreenUpdating = False
Set wb = Workbooks.Open("\04_Team_ILP\2 Arbeitsgebiete\23 Containerauslastung\ _
06_Containerkosten\Seefrachten.xlsm")
wb.Worksheets("Übersicht_aktuell").Range("D6:D31").Copy ThisWorkbook.ActiveSheet.Range("D65:D90" _
)
wb.Close False
End Sub
VG
DE