Werte zwischen zwei Dateien kopieren (VBA)

Mit VBA kann man Werte zwischen zwei Dateien kopieren.  Wie das geht zeigt folgender Code.

Option Explicit

Private Sub cmdAktualisieren_Click()

'Variablendeklaration
Dim strQuelle       As String
Dim strVerzeichnis  As String
Dim wbQuelle        As Workbook
Dim strDN           As String

'Verzeichnis festlegen
strVerzeichnis = Tabelle56.Range("AB1").Value 'Pfad anpassen, wenn sich dieser ändert

'Pfad zur Quelldatei
strQuelle = strVerzeichnis & "Dateiname.xlsx"

'Anzeigeperformance verbessern
Application.ScreenUpdating = False

'Daten aus Quelle holen
Set wbQuelle = Workbooks.Open(strQuelle, True, True)
strDN = Worksheets("Tabelle1").Range("G" & Tabelle56.Range("AE4").Value)
'weitere Daten ...
  
'Quelle schließen
wbQuelle.Close False
Set wbQuelle = Nothing

'Werte einfügen
Tabelle56.Range("H12").Value = strDN
'weitere Daten ...

'Ausgabe Fertigmeldung
Dim Msg, Style, Title, Response
Msg = "Die Daten wurden aktualisiert."
Style = vbInformation
Title = "Information"
Response = MsgBox(Msg, Style, Title)

End Sub

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert

drei + 17 =