Hallo Leute,
ich möchte verschieden Spalten aus mehreren Dateien in eine Ziel-Tabelle kopieren. Dazu habe ich ein Makro geschrieben, aber habe nicht geschafft, was ich genau wollte.
Quelle: Spalte A ab Zeile 8 - Ziel: Spalte A ab Zeile 5
Quelle: Spalte C ab Zeile 8 - Ziel: Spalte B ab Zeile 5
Es geht so weiter: D->C, E->,F->E und G->F
Ist es irgendwie möglich?
Vielen Dank im Voraus.
Mfg Christian
ich möchte verschieden Spalten aus mehreren Dateien in eine Ziel-Tabelle kopieren. Dazu habe ich ein Makro geschrieben, aber habe nicht geschafft, was ich genau wollte.
Quellcode
- Option Explicit
- Public Sub Datenuebername()
- Const strVerzeichnis As String = "C:\Users\krlaczo\Desktop\Excel\"
- Const strTyp As String = "*.xlsx"
- Dim strDateiname As String
- Dim lngSpalte As Long
- Dim wb As Workbook
- strDateiname = Dir(strVerzeichnis & strTyp)
- Do While Len(strDateiname)
- Set wb = Workbooks.Open(Filename:=strVerzeichnis & strDateiname)
- wb.Worksheets(1).Range("B:B").Copy
- ThisWorkbook.Worksheets(1).Range("B:B").Offset(, lngSpalte).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, _
- Operation:=xlNone, SkipBlanks:=False, Transpose:=False
- Application.CutCopyMode = False
- wb.Close savechanges:=False
- strDateiname = Dir
- lngSpalte = lngSpalte + 1 'Hier wird bewirkt, dass um eine Spalte nach rechts gerutscht wird
- Loop
- Set wb = Nothing
- End Sub
Quelle: Spalte A ab Zeile 8 - Ziel: Spalte A ab Zeile 5
Quelle: Spalte C ab Zeile 8 - Ziel: Spalte B ab Zeile 5
Es geht so weiter: D->C, E->,F->E und G->F
Ist es irgendwie möglich?
Vielen Dank im Voraus.
Mfg Christian