Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1700to1704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Werte in andere Datei

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
Anzeige
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
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige