VBA Excel Datei auswählen u Zellen Kopie

Guten Morgen zusammen,
ich habe folgendes Problem:
Ich bekomme öfter Excel Dateien, die vom Aufbau exakt gleich sind und nur einen anderen Dateinamen haben.
Zur Auswertung dieser Dateien, habe ich mir eine Excel Datei gebaut, welche die Daten aus dem ersten Tabellenblatt in andere kopiert und man dort verarbeiten kann.
Nun musste ich das erste Tabellenblatt bisher immer händisch aus einer anderen Excel Datei heraus kopieren und einfügen und genau dieses würde ich nun gerne per VBA Halbautomatisch lösen.
Meine Vorstellung wäre wie folgt:
Ein Button, der einen Dateiexplorer öffnet, in der man die Datei zum kopieren auswählt und dann automatisch die Zellen A11:H400 in das aktive Blatt ab B4 kopiert werden, (inkl. Formatierung) ohne das sich die Datei unbedingt öffnet.
Hoffentlich war es einigermaßen verständlich erklärt.
Vielen Dank im Voraus
Gruß Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
Manchmal kommt es zur Überlastung, aber aktuell habe ich keine Probleme:
excel vba öffne den dialog um eine andere datei zu öffnen und kopiere den bereich A11:H400 in das aktive blatt ab b4
Hier ist ein Beispiel-Code, der den Dialog zum Öffnen einer anderen Excel-Datei öffnet, den Bereich A11:H400 aus dieser Datei kopiert und in das aktive Blatt ab Zelle B4 einfügt:

Sub DatenAusAndererDateiImportieren()
    
    Dim datenDatei As Variant
    Dim datenBereich As Range
    
    'Öffne den Dialog zum Auswählen der Daten-Datei
    datenDatei = Application.GetOpenFilename("Excel-Dateien (*.xlsx),*.xlsx")
    
    'Wenn der Benutzer eine Datei ausgewählt hat, führe den Import aus
    If datenDatei > False Then
        
        'Öffne die ausgewählte Datei
        Workbooks.Open datenDatei
        
        'Kopiere den gewünschten Bereich aus der geöffneten Datei
        Set datenBereich = Workbooks(datenDatei).Worksheets(1).Range("A11:H400")
        
        'Füge den kopierten Bereich in das aktive Blatt ab B4 ein
        datenBereich.Copy Destination:=ActiveSheet.Range("B4")
        
        'Schließe die geöffnete Datei ohne zu speichern
        Workbooks(datenDatei).Close SaveChanges:=False
        
        MsgBox "Daten importiert!"
    
    Else
        MsgBox "Keine Datei ausgewählt."
    End If
End Sub

Beachte, dass der Code in der ersten Zeile Dim datenDatei As Variant verwendet, um eine Variable vom Typ Variant zu deklarieren, da der Rückgabewert von Application.GetOpenFilename entweder ein Dateiname (als String) oder False sein kann. Wenn der Benutzer eine Datei auswählt, wird der Dateiname als String zurückgegeben und in der Variablen datenDatei gespeichert. Andernfalls wird False zurückgegeben.
Um sicherzustellen, dass der Benutzer eine Excel-Datei auswählt, die die benötigten Daten enthält, wird der Dialog auf .xlsx-Dateien beschränkt. Wenn die ausgewählte Datei nicht im .xlsx-Format vorliegt, wird eine Fehlermeldung angezeigt.
Die restlichen Zeilen des Codes kopieren den Bereich A11:H400 aus der geöffneten Datei in die Variable datenBereich, fügen den Bereich in das aktive Blatt ab Zelle B4 ein und schließen die geöffnete Datei, ohne sie zu speichern.
cu
Chris

Beliebteste Forumthreads (12 Monate)

VBA Excel Datei auswählen u Zellen Kopie

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Excel Datei auswählen u Zellen Kopie

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread