Werte statt Formelbezug
13.08.2018 11:56:28
Testuser
Public Sub Daten_mehrerer_Dateien_zusammenfuehren()
Dim WBQ As Workbook
Dim WBZ As Workbook
Dim varDateien As Variant
Dim lngAnzahl As Long
Dim lngLastQ As Long
Set WBZ = ActiveWorkbook
'Altdaten auf Zielblatt löschen
WBZ.Worksheets(1).Range("A1:GEM500").ClearContents
varDateien = _
Application.GetOpenFilename("Datei (*.xlsx),*.xlsx", False, "Bitte gewünschte Datei(en) _
markieren", False, True)
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
For lngAnzahl = LBound(varDateien) To UBound(varDateien)
Set WBQ = Workbooks.Open(Filename:=varDateien(lngAnzahl))
lngLastQ = WBQ.Worksheets(1).Range("C6:GEM6").End(xlUp).Row
WBQ.Worksheets(1).Range("C6:GEM6").Copy _
Destination:=WBZ.Worksheets(1).Range("C" & WBZ.Worksheets(1).Range("C6:GEM6").End(xlUp).Row + _
_
1)
WBQ.Close
Next
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
MsgBox "Es wurden " & UBound(varDateien) & " Dateien zusammengefügt.", 64
Exit Sub
End Sub
Dies ist ein VBA zur Tabellenkonsolidierung. Allerdings werden immer die Formelbezüge übernommen. Wie kann ich es einstellen, dass nur die Werte mitsamt Formatierung übernommen werden?