Werte von A nach B passend anfügen

Hallo VBA-Experten,
Ich bekomme es einfach nicht hin, Formeln in abhängigen und unterschiedlichen Zeilen zu "generieren.
Jetzt bin ich auf die glorreiche Idee gekommen;
1 ) gewünschte Stammdaten von "Basis" in ein Sheet zu kopieren ("Auswahl_1")
2 ) in "Auswahl_1" entsprechende Werte ermitteln
.. soweit alles klar.
Problem:
Die in Auswahl_1 ermittelten Werte (AG5:CC & letzteZeile) sollen nun in den entsprechenden Zeilen (ab AU2") angefügt werden.
Ich habe zum besseren Verständis (diesmal eine vernünftige Mappe angefügt :-)
https://www.herber.de/bbs/user/129477.xlsb
Kann mir hierzu jemand bitte einen vba-tipp geben,- wie dies entsprechend zu übertragen ist?
Mit freundlichen Gruß
Fred Neumann

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DatenÜbernehmen() Dim ID As Long Dim letzteZeileA As Long Dim suchErgebnis As Object Dim wsA As Worksheet ' Blatt "Auswahl_1" Dim wsB As Worksheet ' Blatt "Basis" Dim zeileA As Long Dim zeileB As Long Set wsA = ThisWorkbook.Worksheets("Auswahl_1") Set wsB = ThisWorkbook.Worksheets("Basis") letzteZeileA = wsA.Cells(wsA.Rows.Count, "A").End(xlUp).Row For zeileA = 5 To letzteZeileA ID = wsA.Cells(zeileA, "A") Set suchErgebnis = wsB.Columns("A").Find(What:=ID) If Not suchErgebnis Is Nothing Then zeileB = suchErgebnis.Row wsA.Range(wsA.Cells(zeileA, "AG"), wsA.Cells(zeileA, "CC")).Copy wsB.Cells(zeileB, "AV").PasteSpecial Paste:=xlPasteValues End If Next zeileA Application.CutCopyMode = xlCut End Sub

Hallo Dieter,
entschuldige bitte, das ich nicht schon gestern auf deinen Lösungsansatz reagieren konnte (Anruf, Nachtschicht, früher zum Dienst ..)
Herzlichen Dank für den Code,- passt einwandfrei!
Ich habe ja festgestellt, das VBA in seiner "Schreibweise" für ein und das gleiche sehr unterschiedlich ausgedrückt werden kann. Von (aus meiner Sicht) völlig kryptischen bis "leicht" verständlicher Ausdrucksweise.
Dein Code kann ich sehr gut lesen und auch verstehen, was durch jede einzelne Zeile ausgeführt wird.
Der Code hilft mir sehr weiter und ich werde ihn sicherlich auch in anderen Zusammenhängen benötigen.
Ich hatte gestern Mittag einen Beitrag in "Herber`s Recherche" entdeckt, welcher 2 Tabellen auf einem dritten Sheet über entsprechende "ID" verbindet. Hatte ihn auch schon "nachgebaut" um dann gewisse Daten in "Basis" einzufügen. Dein Weg ist natürlich direkt und "meiner" ist auch direkt,- direkt in den Papierkorb gelandet.
Vielen Dank für deine Mühe!
Gruß
Fred

Beliebteste Forumthreads (12 Monate)

Werte von A nach B passend anfügen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread