Hallo Leute habe gerade schon wieder ein Problem an dem ich schon lange überlegt
Ich habe mir eine Funktion geschrieben die Daten von einer Excel Datei in eine andere übertrat, mit einer File-Funktion. Dies Funktioniert auch nur möchte ich gerne noch das mir der Datei Pfad in eine TextBox überträgt wird, dass man weiß wo die Datei herkommt.
Hier mein Coding
btnBrowse_Click()
Dim WBZiel As Workbook, ExportDatei As Variant
Dim WBQuelle As Workbook, WSZiel As Worksheet
Set WBZiel = ThisWorkbook
Application.ScreenUpdating = False
'DateiÖffnen Dialog anbieten
ExportDatei = Application.GetOpenFilename("Excel-Dateien, *.xlsx;*.xls;*.xlsm*", , "Bitte die Datei zum Kopieren öffnen ...")
ExportDatei = CStr(ExportDatei)
If ExportDatei = "Falsch" Then Exit Sub
'öffnen der ausgewählten Datei
Set WBQuelle = Workbooks.Open(ExportDatei)
'kopieren des Blattinhaltes und Schließen der Quell-Datei
With WBQuelle
.Sheets("Generierte Interfaceliste 1").range("A1:KT9000").Copy WBZiel.Sheets("Standartisierte_IL").range("A1")
.Close savechanges:=False
End With
WBZiel.Sheets("Standartisierte_IL").Activate
Application.ScreenUpdating = True
End Sub
Hoffe Ihr könnt mir helfen
Fabian
|