Daten aus anderer Datei kopieren
23.08.2021 16:27:11
SilentBob78
ich als absoluter Anfänger in Sachen VBA benötige etwas fachmännischen Rat und Hilfe bei meinem Projekt.
Ich möchte per VBA eine andere Datei öffnen und alle Werte die unter einer Bestimmten Überschrift stehen in eine andere Datei kopieren.
Anbei ein Makro mit welchem das Kopieren funktioniert, jedoch nur wenn ich dieses in der Quelldatei hinterlege.
Ich möchte nun das Makro so ändern, das es von der Zieldatei aus ausgeführt wird und die Quelldatei in einem definierten Pfad anhand des Namen öffnet und die Werte kopiert (gerne auch im Hintergrund).
Zieldatei in meinem Beispiel ist "DATEN" und die Quelldatei "BEISPIEL"
Vorab vielen Dank für jegliche Hilfestellungen.
Sub DATEN()
Dim ws As Worksheet, wsZiel As Worksheet
Dim rngZelle As Range
Set wsZiel = Worksheets("DATEN")
Set ws = Worksheets("BEISPIEL")
Set rngZelle = ws.Rows(1).Find("Materialnummer", , , xlWhole)
If Not (rngZelle Is Nothing) Then
Range(Cells(2, rngZelle.Column), Cells(30000, rngZelle.Column)).Copy wsZiel.Range("L3")
End If
Set rngZelle = ws.Rows(1).Find("Auftragsmenge (GMEIN)", , , xlWhole)
If Not (rngZelle Is Nothing) Then
Range(Cells(2, rngZelle.Column), Cells(30000, rngZelle.Column)).Copy wsZiel.Range("M3")
End If
Set ws = Nothing
Set wsZiel = Nothing
End Sub