|
Hallo Leute,
Allgemeine Erklärung:
Jedes Bauteil hat eine sogenannte ID-Nummer (diese beschreibt die Funktion des Bauteils). Anschließend gibt es Zeichnungsnummern von diesem Bauteil. Nun kann es sein, dass eine neue Zeichnung erstellt wurde und damit ändert sich auch die Zeichnungsnummer des Bauteils.
Nun will ich alle Zeichnungsnummern, welche aktualisiert wurden, in ein neues Worksheet packen und mir die alte und die neue Zeichungsnumer mit der dazugehörigen ID aufschreiben lassen.
Also ich will zuerst die ID-Nummer vergleichen und anschließend (in der selben Zeile befindend) die dazugehörige Zeichnungsnummer.
Bin ich da mit meinem Ansatz auf dem richtigen Weg?
Spalte B ist die ID-Nummer, Spalte E ist die Zeichnungsnummer
Sub Vergleich()
Dim c As Range
Dim d As Range
Dim wksALT As Worksheet
Dim wksNEU As Worksheet
Set wksALT = Worksheets("ALT")
Set wksNEU = Worksheets("NEU")
Set rngBereich = wksNEU.Range("B:B")
Set rngBereichM = wksNEU.Range("E:E")
For Each c In rngBereich
If c.Value = wksALT.Range(c.Adress).Value Then
For Each d In rngBereichM
If d.Value <> wksALT.Range(d.Adress).Value Then
Worksheets("ERGEBNIS").Range("A1").Value = d.Value
End If
Next
End If
Next c
End Sub
Was vielleicht auch noch erwähnt werden sollte ist, dass die ID Nummern nicht immer in der selben Zeile der jeweiligen Tabellen sind. Muss ich das dann anders programmieren?
Danke schonmal für eure Hilfe!
LG
|