Werte in andere Datei

Forumthread: Werte in andere Datei

17.07.2019 13:48:05

Matthias

Hallo, ich stehe vor einem kleinen Problem.
Ich möchte mir gerne eine Excel tabelle bauen, die werte in eine andere Datei schreibt.
Die 1. datei, wo die werte erfasst werden bleibt immer die gleiche. Die 2. datei ändert sich jedoch immer.
das heißt, falls möglich sollte excel beim exportieren in die datei 2 fragen um welche datei es sich in dem gleichbleibenden ordner handelt, falls möglich sogar mit explorer und auswahlfenster welche datei sich in dem ordner befindet.
vielen dank schonmal im voraus!

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Werte in andere Datei

17.07.2019 16:33:15

UweD

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

Beliebteste Forumthreads (12 Monate)

Forumthread: Werte in andere Datei

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread