Werte in andere Tabelle einfügen

Guten Tag,
ich bekomme es leider nicht ganz hin mit dem Makro aufzeichnen, meinen Daten aus der einen in die anderen Tabelle zu kopieren und zwar habe ich folgendes vor:
Ich würde gerne, die Daten aus den Spalten D, G, H, I und J aus der ausgewählten Zelle/Zeile (also z.B. ich klicke auf Zelle A9 und möchte das Makro ausführen, bin dann ja dementsprechend in Zeile 9) in ein andere Datei Namens "Projects 2023.xlsm" in das Arbeitsblatt "Avalanche" in die nächste freie Zeile ab Zelle B6 in die Spalten J, I, H, D und L einfügen (Nur die Werte).

Beispiel:
01. Ich klicke in der Ursprungstabelle auf A9 und aktiviere das Makro.
02. Daraufhin sollen die Werte aus den Spalten D, G, H, I, J aus Zeile 9 kopiert werden.
03. Dann sucht sich das Makro die nächste freie Zeile in dem Arbeitsblatt "Avalanche" aus der "Datei Projects 2023", ab Zelle B6
04. Hier werden die Werte nun in die Spalten J, I, H, D, L eingefügt
Spalte D zu Spalte J
Spalte G zu Spalte I
Spalte H zu Spalte H
Spalte I zu Spalte D
Spalte J zu Spalte L

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Kopieren() Dim Z Dim ZielZeile As Range Set ZielZeile = Workbooks("Projects 2023.xlsm").Worksheets("Avalanche").Cells(Rows.Count, "D").End(xlUp).Offset(1, 0).EntireRow With ActiveCell.EntireRow For Each Z In Split("D|J G|I H|H I|D J|L") ZielZeile.Cells(1, Split(Z(1))) = .Cells(1, Split(Z(0))).Value Next End With End Sub

Sub Kopieren() Dim Z Dim ZielZeile As Range Set ZielZeile = Workbooks("Projects 2023.xlsm").Worksheets("Avalanche").Cells(Rows.Count, "D").End(xlUp).Offset(1, 0).EntireRow With ActiveCell.EntireRow For Each Z In Split("D|J G|I H|H I|D J|L") ZielZeile.Range(Right(Z, 1) & "1") = .Range(Left(Z, 1) & "1").Value Next End With End Sub

Sub Kopieren() Dim Z Dim ZielZeile As Range Set ZielZeile = Workbooks("Projects 2023.xlsm").Worksheets("Avalanche").Cells(Rows.Count, "D").End(xlUp).Offset(1, 0).EntireRow With ActiveCell.EntireRow For Each Z In Split("D|J G|I H|H I|D J|L") Debug.Print .Range(Left(Z, 1) & "1").Address, .Range(Left(Z, 1) & "1").Parent.Name Debug.Print ZielZeile.Range(Right(Z, 1) & "1").Address, ZielZeile..Range(Left(Z, 1) & "1").Parent.Name ZielZeile.Range(Right(Z, 1) & "1") = .Range(Left(Z, 1) & "1").Value Next End With End Sub

Sub kopieren() Dim wksZiel As Worksheet Dim lngIN As Long, lngOUT As Long Dim vntIN, vntOUT Dim i vntIN = Array(4, 6, 8, 9, 10) vntOUT = Array(10, 9, 8, 4, 12) lngIN = ActiveCell.Row Set wksZiel = Workbooks("Projects 2023.xlsm").Sheets("Avalanche") lngOUT = Application.Max(6, wksZiel.Cells(Rows.Count, 2).End(xlUp).Row + 1) Application.ScreenUpdating = False For i = LBound(vntIN) To UBound(vntIN) wksZiel.Cells(lngOUT, vntOUT(i)) = Cells(lngIN, vntIN(i)) Next i End Sub

Sub kopieren() Dim wksZiel As Worksheet Dim lngIN As Long, lngOUT As Long 'vntIN = Array(4, 6, 8, 9, 10) 'vntOUT = Array(10, 9, 8, 4, 12) Application.ScreenUpdating = False With ActiveSheet Set wksZiel = Workbooks("Projects 2023.xlsm").Sheets("Avalanche") lngOUT = wksZiel.Cells(Rows.Count, 2).End(xlUp).Row + 1 'Daten in Ziel Tabelle einfügen wksZiel.Cells(lngOUT, 10) = .Cells(lngIN, 4) wksZiel.Cells(lngOUT, 9) = .Cells(lngIN, 6) wksZiel.Cells(lngOUT, 8) = .Cells(lngIN, 8) wksZiel.Cells(lngOUT, 4) = .Cells(lngIN, 9) wksZiel.Cells(lngOUT, 12) = .Cells(lngIN, 10) End With End Sub

Beliebteste Forumthreads (12 Monate)

Werte in andere Tabelle einfügen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte in andere Tabelle einfügen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread