habe folgendes Problem ich würde gerne von einem anderen Excel Sheet ein bestimmtes Blatt in mein vorhandenes Excel Sheet kopieren.
Folgender Code funktioniert in den Zellen steht auch der Richtige Wert nur wenn ich in die Zellen klicke steht kein Wert sondern ein Bezug ='C:\Users\Sven\Desktop\[TR19ses1.xlsm]overview'!V8
Würde mich freuen wenn jemand eine Lösung hätte.
Liebe Grüße
Option Explicit
Sub Kopieren()
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, *.xl*", , "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("braking").Range("A1:P48").Copy WBZiel.Sheets("Wet Braking").Range("A1")
.Close savechanges:=False
End With
WBZiel.Sheets("Wet Braking").Activate
Application.ScreenUpdating = True
End Sub