AW: Werte in andere Datei
17.07.2019 16:33:15
UweD
Hallo
hier mal ein Ansatz.
Sub Datei_Verzeichnis_wählen()
Dim Dlg As FileDialog, Si, strPfad As String, WB, TB1, TB2
Set Dlg = Application.FileDialog(msoFileDialogFilePicker) 'Datei wählen
'Voreingestelltes Verzeichnis
strPfad = "X:\Temp\"
'Tabelle aus der kopiert werden soll
Set TB1 = ThisWorkbook.Sheets("Tabelle1")
With Dlg
.AllowMultiSelect = False 'Darf der User mehrere Dateien auswählen Ja
.ButtonName = "Datei auswählen" 'Name des Buttons des Dialogs
.Filters.Add "Excel", "*.xlsx; *.xlsm" 'Filter, welche Dateien darf er auswählen
.Filters.Add "Alle", "*.*"
.FilterIndex = 0
.InitialFileName = strPfad 'Welches Verzeichnis soll voreingestellt sein
.InitialView = msoFileDialogViewDetails 'Anzeige des Dialogs - die Dateien als Detail
.Title = "Meine Dateien" 'Titel
End With
If Dlg.Show = True Then
For Each Si In Dlg.SelectedItems 'Die Abfrage für den selektierten Eintrag
'öffnet die ausgewählte Datei
Set WB = Workbooks.Open(Si)
'es wird in Blatt1 übertragen
Set TB2 = WB.Sheets(1)
'Beispiel: Wert übertragen
TB2.Range("A1") = TB1.Range("A1")
TB2.Range("B1") = TB1.Range("A2")
'...
'Datei schließen mit Speichern
WB.Close True
Next
Else
'Keine Datei gewählt
MsgBox "Abbruch"
End If
End Sub
LG UweD