Guten Tag, Ich würde gerne Daten von einer Tabelle in die andere übertragen. Hierbei will ihc aber nicht alle Spalten einfach kopieren sondern nur bestimmte (Spalte 1,3,6,7,10,11,12,13,14,15,16,19). ich hab es hinbekommen, dass es mir jeweils die erste Spalte übernimmt. jedoch beendet es danach dann immmer das Makro. Ich habe schon ein ähnliches Makro, welches Werte aus einer anderen Datei in eine Tabelle überträgt. Das funktioniert aber irgendiwe bekomme ich dieses hier nicht zum laufen :/
Anbei der Code
Sub Übertragung_Angebot()
'Variablen dimensionieren
Dim Warenkorb As ListObject
Dim Angebot As ListObject
Dim AngebotsTabelle As ListRow
Dim i As Long
'Variablen definieren
Set Angebot = tb_Angebot.ListObjects(1)
Set AngebotsTabelle = Angebot.ListRows.Add
Set Warenkorb = tb_Warenkorb.ListObjects(1)
For i = 1 To Angebot.ListRows.Count
Set AngebotsTabelle = Angebot.ListRows.Add
'Daten übertragen
With AngebotsTabelle.Range
.Cells(1).Value = Warenkorb.ListRows(i).Range.Cells(1).Value
.Cells(2).Value = Warenkorb.ListRows(i).Range.Cells(3).Value
.Cells(3).Value = Warenkorb.ListRows(i).Range.Cells(6).Value
.Cells(4).Value = Warenkorb.ListRows(i).Range.Cells(7).Value
.Cells(5).Value = Warenkorb.ListRows(i).Range.Cells(10).Value
.Cells(6).Value = Warenkorb.ListRows(i).Range.Cells(11).Value
.Cells(7).Value = Warenkorb.ListRows(i).Range.Cells(12).Value
.Cells(8).Value = Warenkorb.ListRows(i).Range.Cells(13).Value
.Cells(9).Value = Warenkorb.ListRows(i).Range.Cells(14).Value
.Cells(10).Value = Warenkorb.ListRows(i).Range.Cells(15).Value
.Cells(11).Value = Warenkorb.ListRows(i).Range.Cells(16).Value
.Cells(12).Value = Warenkorb.ListRows(i).Range.Cells(19).Value
End With
Next
'Duplikate löschen
Angebot.DataBodyRange.RemoveDuplicates Columns:=Array(2, 3, 12), Header:=xlYes
'Zum Angebot navigieren
With tb_Angebot
.Select
End With
End Sub
Evtl. erkennt ja jemand den Fehler :)
Danke im voraus und ein schönes Wochenende
|