Hallo zusammen,
habe folgendes Problem:
ich suche alle Excel-Listen im Pfad zusammen, öffne diese und Kopier den Inhalt in eine andere Excel liste hinein.
Es kopiert mir aber die Formel mit und beim Einfügen entsteht immer eine Null (Bezugsproblem).
Wie kann nur der Text kopiert werden, ohne die Formel l?
Benutze folgenden Code.
strDateiname = Dir(avntFiles(lngIndex, 1))
With ThisWorkbook.Worksheets("Tabelle1")
Do While strDateiname ""
If strDateiname ThisWorkbook.Name Then
Workbooks.Open Filename:=avntFiles(lngIndex, 1)
loLetzte1 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
loLetzte2 = ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
inLetzte = ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
ActiveWorkbook.ActiveSheet.Range(Cells(1, 2), Cells(loLetzte2, inLetzte)).Copy Destination:=.Cells(loLetzte1 + 1, 4)
ActiveWorkbook.Close True
End If
strDateiname = Dir
Loop
End With
Vielen Dank im Voraus für eueren Rat / Hilfe.
Gruss
Alex