AW: mehrere Spalten in neue Spalte kopieren
10.03.2019 19:22:57
AlterDresdner
Hallo Tinchen,
bitte nicht verzweifeln, alles wird gut!
Ich gehe davon aus, dass in OT_i die Daten in Spalte D stehen, sonst müsstest Du einen OT-File posten.
Der Code sollte das Gewünschte tun:
Sub skuKopieren()
Dim OT As Workbook
Dim CHPriceTool As Workbook
Dim loletzte As Long, i As Long
Set CHPriceTool = ThisWorkbook
For i = 1 To 4 'anpassen, wieviele Fiels OT_ vorhanden sind
loletzte = CHPriceTool.Sheets("Input").Cells _
(Sheets("Input").Rows.Count, 1).End(xlUp).Row
If loletzte > 1 Then loletzte = loletzte + 1
Set OT = Workbooks.Open("C:\Users\Kristin\Desktop\CH_Preise\OT_" & i & ".xlsx", _
ReadOnly:=True)
With OT.Sheets(1)
.Range("D1:D" & .Cells(Rows.Count, 4).End(xlUp).Row).Copy _
Destination:=CHPriceTool.Sheets("Input").Cells(loletzte, 1)
End With
OT.Close
Set OT = Nothing
Next i
Set CHPriceTool = Nothing
'Datei oeffnen
' Workbooks.Open "C:\Eigene Dateien\A.xls"
'Werte auslesen und übertragen
' Workbooks("B.xls").Worksheets("Tabelle1").Range ("A1")
'Datei schliessen
'Workbooks("A.xls").Close False
End Sub
Gruß der Martin