Ich kopiere im Hintergund Daten und füge diese in aktivem Worksheet ein.
wbQ.Worksheets("Big Data").Range("A25:AB8000").Copy ThisWorkbook.Worksheets("Big Data").Range("A2")
Möche aber keine Formeln sondern nur Werte übernehmen. Wie muss ich den Code entsprechen anpassen? Habe ich keine Ahnung wie ich dies bewerkstellige. Müsste irgendwas mit PasteSpecial Paste:=xlValues beinhalten. Aber eben wie... Hoffe jemand von euch kann mir dabei helfen.
Ganzer Code sieht so aus:
Sub BigDaten_Einlesen()
Dim wbQ As Workbook
Dim sPfad As String
'----------------ScreenUpdating und PopUps deaktivieren----------------
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'----------------Dateipfad benennen----------------
ChDrive ThisWorkbook.Path
ChDir "C:Desktop"
'----------------Dateipfad der Quelldatei----------------
sPfad = Application.GetOpenFilename(FileFilter:="Excel-Dateien (*.xls*),*.xls*")
'----------------Arbeitsmappe öffnen----------------
Set wbQ = Workbooks.Open(sPfad)
'----------------Daten kopieren und einfügen----------------
wbQ.Worksheets("Big Data").Range("A25:AB8000").Copy ThisWorkbook.Worksheets("Big Data").Range("A2")
PasteSpecial Paste:=xlValues
'----------------Arbeitsmappe schließen----------------
wbQ.Close SaveChanges:=False
MsgBox "Daten kopiert"
End Sub
Liebe Gruess
Richi