Thema Datum  Von Nutzer Rating
Antwort
Rot Spaltenvergleich
19.08.2021 14:04:31 Frox
NotSolved
19.08.2021 19:57:16 Mase
NotSolved

Ansicht des Beitrags:
Von:
Frox
Datum:
19.08.2021 14:04:31
Views:
136
Rating: Antwort:
  Ja
Thema:
Spaltenvergleich

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 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Spaltenvergleich
19.08.2021 14:04:31 Frox
NotSolved
19.08.2021 19:57:16 Mase
NotSolved