Werte einlesen und passend einfügen

Hallo zusammen,
ich benötige bei Folgendem eure Hilfe:
In der angehängten Beispiel-Datei sind 2 Tabellenblätter zu finden. In der originalen Datei besitzt das Tabellenblatt Daten rund 40 Spalten und über 170.000 Zeilen. Dieses Tabellenblatt beruht größtenteils auf einer SAP Auswertung, die monatlich aktualisiert wird. Die Spalten Ausnahme und Bemerkung müssen noch manuell gepflegt werden.
Die Ausnahmen und Bemerkungen sind auf dem Tabellenblatt Bemerkungen vermerkt. In der Original-Datei habe ich mir ein kleines VBA-Modul geschrieben, welches die Zeilen des Tabellenblattes Daten mit Bemerkung und/oder Ausnahmen herausfiltert, ausschneidet und auf das Tabellenblatt Bemerkungen einfügt. Dieses Rüber-kopieren erfolgt immer vor Folgendem:
Wird nun eine neue SAP Auswertung erzeugt und das Tabellenblatt Daten aktualisiert, kann es zu natürlich zu Veränderungen kommen, wodurch die Ausnahmen/Bemerkungen evtl. nicht mehr an ihrem richtigen Platz stehen. Jetzt kommt ihr ins Spiel.
Wie ich es mir theoretisch vorstelle:
1. Die Spalte Kundennummer des Tabellenblattes Bemerkungen einlesen, bis die letzte Kundennummer erreicht ist.
2. Die Werte der Spalten Ausnahme und Bemerkung zu der jeweiligen Kundennummer einlesen.
3. Dann auf dem Tabellenblatt Daten die jeweiligen Kundennummern heraussuchen und in die Spalten Ausnahmen und Bemerkung die eingelesenen Werte vom Tabellenblatt Bemerkung einfügen.
Der Theorie nach nicht schwer, aber in der Praxis (Array oder so?) habe ich dazu leider keine Ahnung und hoffe auf eure Unterstützung. Es soll nicht über Formeln (INDEX o.Ä.) in den Zellen erfolgen.
Beispiel-Datei: https://www.herber.de/bbs/user/145420.xlsx
Ich wünsche euch aber jetzt erstmal einen guten Start ins Wochenende. Bleibt gesund!
Liebe Grüße,
Jonas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public Sub Abgleich() Dim lngRow As Long Dim objCell As Range With Tabelle1 For lngRow = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row If Not IsEmpty(.Cells(lngRow, 2).Value) Or _ Not IsEmpty(.Cells(lngRow, 4).Value) Then Set objCell = Tabelle2.Columns(6).Find(What:= _ .Cells(lngRow, 6).Value, LookIn:=xlValues, LookAt:=xlWhole) If Not objCell Is Nothing Then objCell.Offset(0, -2).Value = .Cells(lngRow, 4).Value objCell.Offset(0, -4).Value = .Cells(lngRow, 2).Value Set objCell = Nothing Else Call .Range(.Cells(lngRow, 1), .Cells(lngRow, 6)).Copy( _ Destination:=Tabelle2.Cells(1, 1).End(xlDown).Offset(1, 0)) End If End If Next End With End Sub

Option Explicit Public Sub Abgleich() Dim lngRow As Long Dim objCell As Range With Worksheets("Bemerkungen") For lngRow = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row If Not IsEmpty(.Cells(lngRow, 2).Value) Or _ Not IsEmpty(.Cells(lngRow, 4).Value) Then Set objCell = Worksheets("Daten").Columns(6).Find(What:= _ .Cells(lngRow, 6).Value, LookIn:=xlValues, LookAt:=xlWhole) If Not objCell Is Nothing Then objCell.Offset(0, -2).Value = .Cells(lngRow, 4).Value objCell.Offset(0, -4).Value = .Cells(lngRow, 2).Value Set objCell = Nothing End If End If Next End With End Sub

Hallo Werner,
ich habe mir die VBA-Lösung von Nepumuk gerade angeschaut. Du hast Recht. Es soll andersherum funktionieren. Die Spalten "Ausnahme" und "Bemerkung" ist in der Ausgangslage leer. Somit sollen die Werte aus den Spalten "Ausnahme" und "Bemerkung" von Tabellenblatt "Bemerkungen" zur jeweils passenden Kundennummer auf Tabellenblatt "Daten" eingefügt werden.
Ich hab jetzt einfach die Tabellennamen umgedreht und siehe da, in der Beispiel-Datei funktioniert es. In der Original-Datei läuft es leider noch nicht so rund bzgl. des Findens der richtigen Spalten auf Tabellenblatt "Daten". Ich werde mir dies aber erstmal selber anschauen - "Learning by doing". Falls ich es nicht hinbekommen sollte, melde ich mich auf jeden Fall wieder.
Vielen Dank! :)
Gruß Jonas

Beliebteste Forumthreads (12 Monate)

Werte einlesen und passend einfügen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte einlesen und passend einfügen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread