Daten zusammenfügen
01.03.2018 11:13:37
Sven
ich habe ein Makro, welches alle Dateien in einem Ordner öffnet und dann alles in eine neue Datei zusammenkopiert
Sub zusammenfuegen()
Dim strDateiname As String
Dim loLetzte1 As Long
Dim loLetzte2 As Long
Dim inLetzte As Integer
Application.ScreenUpdating = False
strDateiname = Dir(ThisWorkbook.Path & "\*.xls*")
With ThisWorkbook.Worksheets("Tabelle1")
Do While strDateiname ""
If strDateiname ThisWorkbook.Name Then
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & strDateiname
loLetzte1 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
loLetzte2 = ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells( _
xlCellTypeLastCell).Row
inLetzte = ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell) _
.Column
ActiveWorkbook.ActiveSheet.Range(Cells(2, 1), Cells(loLetzte2, inLetzte)).Copy _
Destination:=.Cells(loLetzte1 + 1, 1)
ActiveWorkbook.Close True
End If
strDateiname = Dir
Loop
End With
Application.ScreenUpdating = True
End Sub
Jedoch werden hier alle Formeln kopiert. Wie muss ich das Makro umschreiben, dass nur Werte kopiert werden?
Mit freundlichen Grüßen
Sven