Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1680to1684
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

mehrere Spalten in neue Spalte kopieren

mehrere Spalten in neue Spalte kopieren
10.03.2019 18:34:15
Tinchen
Hallo zusammen,
ich hoffe hier kann mir jemand helfen. Verzweifle langsam.
Ich möchte aus den files "OT1" und "OT2" jeweils die Spalte D kopieren und im file "CHPriceTool" im Sheet "Input" in Spalte A kopieren.
https://www.herber.de/bbs/user/128277.xlsm
Bisher kopiert der Code nur die Spalte D aus "OT1" in das tool. Aber kopiert nicht den Inhalt von Spalte D aus file "OT2" unter das kopierte von "OT1".
Vielen Dank,
Tinchen

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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
Anzeige
AW: mehrere Spalten in neue Spalte kopieren
11.03.2019 16:52:52
Tinchen
Hallo Martin,
ich danke dir vielmals. Das passt super!
Gruss, Tinchen
AW: mehrere Spalten in neue Spalte kopieren
11.03.2019 18:55:55
AlterDresdner
Hallo Tinchen,
für die Rückmeldung dankt der Martin

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige